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Junior-computer 4... 


een boek dat volledig in het teken staat van software. Hoe kun je “ego- 
software’’ snel, nee: supersnel aan de junior-computer opgeven? En hoe 
zitten de diverse nieuwe systeemprogramma’s in elkaar? 

Allereerst maken we, in hoofdstuk 13, kennis met een spiksplinternieuw 
systeemprogramma. Het heet kort maar krachtig “PME” en kombineert 
de voordelen van de standaard-editor met de voordelen van PM. Met als 
gevolg dat het nu helemaal een fluitje van een cent is om grote gebruikers- 
programma’s aan de junior-computer op te geven en ze vervolgens te assem. 
bleren. 

En dan volgen drie hoofdstukken met een gedetailleerde beschrijving, 
byte voor byte, van de systeemprogramma’'s PM (hoofdstuk 14), PME 
(hoofdstuk 15) en TM, inklusief de twee cassette-super-subroutines’ 
(hoofdstuk 16). 

Helaas is het in boek 3 toegezegde hoofdstuk over de VIA komen te ver- 
vallen. Waarom? Ten eerste omdat er geen plaats meer voor is en ten 
tweede omdat er over de 6522-VIA erg veel goede literatuur” bestaat. 

In de aanhangsels, achterin dit boek, zijn uitgebreide programma-listings 
van de genoemde systeemprogramma’s opgenomen. 


A. Nachtmann 
GH. Nachbar 


* Literatuur over de 6522-VIA: 
R6522-Datasheet Rockwell; 
SY6522/SY6522A-Datasheet Synertek; 
Section 6 R6500 Hardware Manual Rockwell 
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Supersnel 
editen en assembleren 


De PM-Editor 


Het opgeven van een programma aan de computer is stukken 
minder leuk dan het bedenken ervan. Dus moeten we aan het 
ene zo min mogelijk tijd besteden en aan het andere zo veel 
mogelijk tijd. Want een hobby, oók de junior-computer-hobby, 
is bedoeld als aangenaam tijdsverdrijf. 

De opgave van een programma verloopt al veel sneller als 
gebruik wordt gemaakt van de in boek 2 beschreven editor en 
assembler. En voortaan hoeven we een programma maar één 
keer byte voor byte op te geven. Want de cassette-band ont- 
hóudt het wel; voor ons en voor de computer. 

Dat is nog niet alles. Het kan nog sneller. In dit hoofdstuk staat 
hoe. 

In boek 3 is de sprong gemaakt van standaard-monitor naar PM. 
In dit hoofdstuk maken we net zo’n sprong: van standaard- 
editor naar PM-Editor. De naam (afgekort: PME) zegt het al: 
een editor die is gebaseerd op PM. Die dus niet meer met het 
kieine toetsenbord werkt maar met het grote. Die dus niet meer 
iets laat zien op zes displays maar op het tv-scherm of op het 
papier van een printer. Maar die nog steeds wel is gebaseerd op 
het gebruik van hexadecimale labels. En dat werkt met name in 
de ontwikkelingsfase van een programma beduidend sneller dan 
met een grote” editor en assembler. 

Er zijn nu meer toetsen beschikbaar. Die benutten we voor een 
deel voor allerlei nieuwe, komfortabele toetsfunkties. En er kan 
nu wel iets meer dan eén instruktie tegelijk worden getoond. 
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Daar komt nog iets bij: het aantal toetshandelingen is ten 
opzichte van de standaard-editor met ca. 30% gereduceerd. 

Lees dit hoofdstuk en u weet alles van PME. Van de gelegenheid 
maken we gebruik om een aantal voorbeeldprogramma’s met 
PM-subroutines te behandelen, als voortzetting van de program- 
ma's van hoofdstuk 12 van boek 3. | 

Het lezen van dit hoofdstuk en het leren omgaan met PME 
kosten u tijd. Tijd echter, die u snel zult terugverdienen. Dàt zal 
de tijd snel leren. 


Junior groeit. 

Weliswaar niet meer lichamelijk. Dat hebben we achter de rug in boek 3. 
Maar wel geestelijk. 

De software dus. 

Zowel de TM-EPROM als de PM-EPROM vertoonden nog een leemte van 
pakweg driekwart K. Dat kon natuurlijk niet zo blijven. En dat is nu ook 
niet meer het geval voor de PM-EPROM. Want de resterende geheugen- 
plaatsen zijn nu gereserveerd voor het systeemprogramma PME. Voluit: 
PM-Editor. Een editor dus die is gebaseerd op PM. Op basis van het grote 
toetsenbord en met meer ruimte om iets te laten zien; zowel in de breedte 
(meer op een regel) als in de lengte (meer regels). 

Laten we eerst maar eens gaan bespreken waarom er zo nodig een nieuwe 
editor moest komen. Het argument dat er nog plaats voor ís in een EPROM 
is op zich natuurlijk niet doorslaggevend. Want er zijn genoeg andere aan- 
vullende systeemprogramma’'s denkbaar, die óók interessant zijn: óók die 
nu nog niet geheel gevulde TM-EPROM is geen oneindig lang leven bescho- 
ren. 


Waarom eigenlijk PME? 


Wat hebben we al? De standaard-editor van de hoofdstukken b en 8 van 
boek 2. We beginnen met het vaststellen van één groot voordeel van die 
editor. Dat is het gebruik van hexadecimale labels. Het alternatief Is: 
labels, bestaande uit woorden van maximaal zes letters. Labels, zoals u die 
tegen komt in de listings achterin dit boek en achterin boek 2. Listings, die 
zijn gemaakt met een grote assembler/editor. Zo'n grote editor annex 
assembler is wel een stukje groter dan de driekwart K van PME. Er is dus 
geen EPROM voor beschikbaar (afgezien van buskaart-EPROM). En als 
zo’n grote assembler/editor al zal worden gerealiseerd dan gaat de voorkeur 
uit naar een programma op de band in plaats van in relatief dure EPROM. 
Maar er is nog een andere reden om niet al te hard te denken aan een grote 
editor. 

Men moet daarbij namelijk uitgaan van een behoorlijk volledige dokumen- 
tatie vooraf van het gebruikersprogramma op papier. Alle (echte!) labels 
moeten bekend zijn. En verder moeten alle gebruikte geheugenplaatsen 
met een bekende naam (bijvoorbeeld POINT L of BYTES) vooraf worden 


8 


opgegeven; ‘gedeklareerd’’ heet dat deftig. Hetzelfde geldt voor subrouti- 
nes waarvan het adres al vastligt, voor 1/O, enzovoorts. 

Stel nou dat u om vier uur een programma heeft bedacht en om vijf uur 
wilt weten of het werkt (dat wordt dus overwerken), of niet. Ga er verder 
van uit dat de kans groot is dat er naderhand nog wat moet worden gesleu- 
teld aan het programma. We stellen dus vast dat: a) bij gebruik van een 
grote editor/assembler veel werk vooraf moet worden gedaan, en b) dat de 
kans groot is dat een deel van dat werk voor niets is verricht. 

Geef mij dan maar een editor die werkt met hexadecimale labels, zoals de 
standaard-editor en zoals PME. Gegarandeerd zit dat programma van 
daarnet er om half vijf in (en zijn we vervolgens tot half zes bezig om het 
nèt nog even mooier, beter of uitgebreider te maken .…. ). 

Konklusie: werk met hexadecimale labels. Met name in de scheppingsfase 
van een gebruikersprogramma biedt dat alleen maar voordelen. Bovendien 
hoeven we dan geen nieuwe assembler te maken. De bestaande assembler 
van hoofdstuk 9 van boek 2 blijft voor de volle 100% bruikbaar. Er is 
slechts één mogelijk nadeel verbonden aan het gebruik van hexadecimale 
labels. Men moet geen labelnummers kiezen die gelijk zijn aan het rechter 
byte ADL van een absoluut adres; een adres dus dat al vóór het editen en 
assembleren vastligt. Maar dat soort weetjes heeft men gauw genoeg onder 
de knie. Dus dat is nauwelijks een nadeel te noemen. Bovendien is het 
aantal beschikbare labels niet oneindig groot: een dikke tachtig. Maar daar 
kunt u werkelijk läppen van programma’s mee maken. | 
Tot zover een belangrijk voordeel van de oude en de nieuwe editor. Er zijn 
ook nadelen verbonden aan de standaard-editor. Die nadelen zijn tegelij- 
kertijd de bestaansgronden van PME. We zetten de nadelen op een rijtje: 


@ Allereerst natuurlijk het beperkte aantal toetsfunkties en de beperkte 

___weergavemogelijkheden. Dat is geen schande, want de standaard-editor 
hoort bij de standaard-junior-computer. Misschien moeten we het 
anders zeggen: Gegeven de nieuwe mogelijkheden kwa aantal toetsen en 
kwa weergave (na de uitbreidingen van boek 3) ligt het voor de hand 
om de standaard-editor niet langer als “standaard” te beschouwen. 

e Foutmeldingen. De standaard-editor kent slechts één foutmelding: de 
kreet "EEEEEE" op het display. Dat is overigens alleen zichtbaar 
zolang de ingedrukte toets die aanleiding gaf tot de foutmelding, nog is 
ingedrukt. Er is dus een behoorlijk grote kans dat men die "EEEEEE” 
helemaal niet in de gaten heeft gehad. Een duidelijkere foutmelding is 
dus nooit weg. Verder willen we graag zien wat er dan wel fout is 
is gedaan of gegaan. 

@ Meer foutmeldingen. Aan de standaard-editor kleeft één groot nadeel: 
er wordt niet vastgesteld dat het via BEGAD en ENDAD gespecificeerde 
geheugenbereik vol is na het intoetsen (opgeven) van een te groot aantal 
labels en instrukties. Dat is erg vervelend. Bijvoorbeeld in het voorbeeld- 
programma PLAY op de pagina’s 52... 55 van boek 2. Het beschik ba- 
re geheugenbereik D0DD...DDED is ruimschoots voldoende voor de 
geassembleerde versie van PLAY (labels eruit) maar niet voor de versie 
met de labels er nog in. We komen dan net een paar plaatsen te kort: de 
afsluitende 77 komt op geheugenplaats DOE3 (BEGADH!). Daar is 
overigens wel een mouw aan te passen: laat het label 90 (PLAY) verval- 
len. Dat mag, want er wordt toch niet naar gesprongen. Doen we dat 
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dan is er plaats genoeg, óók voor de versie met labels... ware het niet 
dat er toch weer te weinig geheugenplaatsen beschikbaar zijn voor het 
eerste label dat tijdens het assembleren wordt gevonden (zie alvast 
figuur 1). Remedie: zet PLAY neer op pagina @2. Dáár is plaats genoeg. 
Overigens: we hebben nu de beschikking over een aaneengesloten RAM- 
geheugenbereik van 9200... Ô7FF. Dat is anderhalve kilo. Het gevaar 
van een ‘volle geheugenherberg’’ is nu aanzienlijk minder groot gewor- 
den. 

e Minder toetswerk. Verreweg de meest gebruikte toetsfunktie is INPUT. 
Dat wil zeggen: meestal gaat het om de opgave van een instruktie die in 
het geheugen op een plaats of plaatsen komt direkt na de plaats of 
plaatsen waarop zich de instruktie bevindt die als laatste op het display 
zichtbaar was. Dus het meeste toetswerk vindt plaats in het kader van 
het achter elkaar in het geheugen laden van een hele reeks instrukties en 
labels. Is het nou echt nodig om voor elke instruktie en label een 
INPUT -toets in te drukken? Nee, dat is niet nodig. Je kunt het systeem- 
programma zo opzetten dat bij de opgave van numerieke data d...F 
automatisch sprake is van de INPUT-toetsfunktie, tenzij er een andere 
toetsfunktie is gekozen waarvan de uitvoering eveneens afhangt van de 
opgave van numerieke data. Bijvoorbeeld INSERT of SEARCH. Dit 
principe van ‘automatisch INPUT bij numerieke data, tenzij .. … levert 
een aanzienlijke reduktie op van het aantal toetshandelingen. 


PME. Aangenaam! | 


Bij de standaard-editor wordt het display afwisselend gebruikt voor de 
weergave van een toetsaktie van de gebruiker en voor de weergave van een 
reaktie van de junior-computer bij monde van de editor. Een totaalover- 
zicht ontbreekt dus. Herinneren we ons PM van boek 3, dan weten we dat 
er meer op een regel kan en dat er meer regels tegelijk zichtbaar gemaakt 
kunnen worden. Kortom: er is meer te zien. Verder herinnert u zich die 
kwestie van de hardware-echo in de VART van de Elekterminal. Die echo 
zorgt ervoor dat een ingedrukte toets automatisch op het tv-scherm of op 
het papier zichtbaar wordt. Zonder dat daarvoor één byte software nodig 
is. 

Konklusie: het is dus mogelijk om op het tv-scherm of papier te werken 
met twee kolommen. Eén kolom ts bestemd voor de toetsakties van de 
gebruiker. En de andere kolom is er voor de reaktie van de junior-compu- 
ter via zijn spreekbuis PME. Dus de ene kolom vertelt ons wat we hebben 
gedaan en de andere kolom vertelt ons wat de junior-computer ervan vindt. 
Dus twee kolommen. De linker kolom is bestemd voor de reaktie van de 
computer. De rechter kolom is bestemd voor de aktie van de gebruiker. 
Een aktie van de gebruiker uit zich op één bepaalde regel van de rechter 
kolom. De reaktie van de computer speelt zich af op of vanaf de volgende 
regel op de linker kolom. (Uitzondering: het afdrukken van labels. Zoals 
zal blijken wordt daarvoor het tv-scherm over de volle breedte gebruikt). 
Terugmeldingen. Bij PM hebben we verschillende soorten terugmeldingen 
leren kennen. Denk aan “JUNIOR” en “WHAT? Bij PME is dat ook het 
geval. Er zijn algemene terugmeldingen en foutmeldingen. De foutmeldin- 
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gen zijn gespecificeerd. Dan weet je als gebruiker tenminste wât je dan wel 
fout hebt gedaan. 

Ook het adres zichtbaar. Het is een kleine moeite om, nu er toch zât 
ruimte is, als er een instruktie wordt weergegeven (lees: afgedrukt) om dan 
meteen maar het adres erbij af te drukken waarop de opcode staat van die 
instruktie. Dat levert zeer nuttige extra informatie op, bijvoorbeeld over de 
hoeveelheid geheugen die op een bepaald tijdstip is “opgesoupeerd’ (met 
inbegrip van de labels). 

En nog veel meer. Zoals: sneller en komfortabeler BEGAD en ENDAD 
opgeven, vier startadressen in plaats van twee, veel meer toetsfunkties, 
sneller assembleren, adresinformatie van de labels, enzovoorts. 

Hopelijk hebben we u erg nieuwsgierig gemaakt. Zullen we dan maar 
verder gaan? 


PME. Een grondige kennismaking 


A. Algemeen 


Het systeemprogramma PME bevindt zich in de PM-EPROM. Dat is IC5 op 
de interface-kaart. Het bijbehorende bestelnummer was ESS 507 voor de 
EPROM met alleen PM en is ESS 507N voor de volle EPROM, dus met PM 
plus PME plus nog wat losse bytes (zie elders in dit boek). Sinds juni 1981 
worden de door Elektuur in het kader van de ESS (507) aangeboden 
EPROMs “stilzwijgend'’ behandeld als ESS 507N. Mensen van het eerste 
uur kunnen hun 507-EPROM alsnog laten “opvoeren” tot een 507N- 
EPROM. Hoe dat moet kunt u in de nieuwste uitgave van het tijdschrift 
Elektuur lezen. 

Het programma PME beslaat de geheugenplaatsen 14F8...17FD van de 
PM-EPROM. In PME wordt gebruik gemaakt van een aantal PM-subrouti- 
nes. Dit houdt in dat PME moet worden opgestart via PM (keuze uit vier 
startadressen). Zou men PME opstarten via de standaardmonitor, dan is de 
I/O niet goed gedefinieerd. Vandaar. 


B. Koude start 
Startadres: $1560 


De koude start van PME is — net als bij de standaard-editor het geval is — 
bedoeld voor het prille begin van een te editen programma. Dus niet voor 
een gebruikersprogramma dat ooit al is ge-edit of misschien zelfs al geas- 
sembleerd en dat opnieuw moet worden ge-edit. Dáár hebben we andere 
startadressen voor. Zoals zal blijken. 

Hoe gaan we te werk? 

Eerst PM opstarten: 

RST 1 # ® d GO RUB OUT (= RES) 

We zitten nu in PM. Nu de koude start: 

1 5 $ 9 SP R (SP: spatietoets; niet: “S*, gevolgd door **P“1) 

Nu is PME opgestart. Er volgt de terugmelding: 

BEGAD, ENDAD: 

Drie keer raden wat u nu moet doen? ... Inderdaad, heel goed: Het eerste 
adres BEGAD en het laatste adres ENDAD opgeven van het stuk(je) 
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geheugen waarin het programma moet worden gezet, te beginnen vanaf 
BEGAD. Bij een koude start moet het altijd gaan om RAM-geheugen. 

Hoe gaan we te werk? Net als bij de toets M van PM (hex dump). Eerst 
geven we BEGAD op, vervolgens drukken we de kommatoets in en dan 
geven we ENDAD op. Rest nog het indrukken van de toets CR. Linker 
nulien hoeven we niet op te geven. Een voorbeeld. We gaan uit van het 
buitengewoon populaire geheugenbereik 9200... O3FF: 

BEGAD, ENDAD: 200, 3FFCR | 

PM EDITOR 

6208 77 

De terugmelding “PM EDITOR” betekent dat we kunnen beginnen met de 
opgave van labels en instrukties. Die “77” op BEGAD is dezelfde 77 als die 
van de standaard-editor: het EOF-teken, dat naarmate er instrukties en 
labels worden opgegeven doorschuift naar een hoger adres. Het is dan ook 
niet verwonderlijk dat de eerste instruktie of label die na een koude start 
wordt opgegeven, moet worden opgegeven met de INSERT-toets | (zie 
punt G, nummer ©). 

Al met al gaat een koude start nu heel wat sneller in zijn werk 
dan ‘vroeger’, met de standaard-editor. Geen gedoe meer met 
ENDADL=$9DE2, enzovoorts. Prima! 

N.B. Indien men een ENDAD lager dan BEGAD opgeeft treedt er geen 
foutmelding op. Dit in tegenstelling tot de M-toets van PM. Het spreekt 
vanzelf dat ENDAD kwa adres hoger moet zijn dan BEGAD en dus kwa 
positie op de “memory map’ lager. 


C. Warme start 
Startadres: $1533 


De warme start kennen we ook nog van vroeger. Deze is bedoeld om terug 

te keren naar de editer, waarbij de inhoud van de nu volgende adreswijzers 

wordt bepaald door de voorgeschiedenis: 

BEGAD: beginadreswijzer 

ENDAD: eindadreswijzer 

CEND : variabele eindadreswijzer 

CURAD: displaywijzer. Wees vroeger op het adres met de opcode van de 
instruktie of het label dat op het display zicht- 
baar was. Wijst nu, bij PME, op het adres met de 
opcode van de instruktie die als laatste door PME 
op de linker kolom van het tv-scherm of printer- 
papier is afgedrukt. 

Na de opgave van het startadres 1533 (via PM!) en het indrukken van 

toets R volgt via PME de terugmelding: 

PM EDITOR 

XXXX YY YY YY 

waarbij XXXX de inhoud van CURAD is en de Y-tjes de instruktie of het 

label voorstellen waarvan de opcode of FF op het adres CURAD is gehuis- 

vest, Afhankelijk van de lengte van de instruktie dient men geen, de laatste 

twee danwel de laatste vier Y-tjes als niet afgedrukt op te vatten. In tegen- 

stelling tot de koude start (punt B) wordt er dus nu geen 71 op het adres 

BEGAD neergezet. 
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D. Lauwe start 
Startadres: $ 1667 


Dit is helemaal nieuw. Dat kennen we nog niet van vroeger. Lauw betekent 
iets dat tussen warm en koud inzit. De overeenkomst met de koude start is 
dat eerst BEGAD en ENDAD moeten worden opgegeven en dat de eerste 
instruktie (die met de opcode op BEGAD) wordt afgedrukt. De overeen- 
komst met de warme start is dat er op het adres BEGAD geen 7/ wordt 
geschreven. Bij de koude start is de variabele eindadreswijzer CEND 
tin den beginne’ gericht op een adres, één hoger dan BEGAD. Bij de 
lauwe start wordt die CEND gelijk gemaakt aan ENDAD. 

De startprocedure: 

1 6 6 7 SP R{(SP: spatietoets; niet: ”S’’, gevolgd door “”P“!) 

BEGAD, ENDAD: 1CG0, 1FFF CR 

PM EDITOR 

1CÓÓ 85 

In het voorbeeld is een BEGAD 1CGd en een ENDAD 1FFF opgegeven. 
Hé, maar is dat geen EPROM-geheugenbereik? Klopt. De lauwe start is met 
name bedoeld voor het bekijken van kant en klare programma's. Hetzij in 
RAM, hetzij in EPROM. Vooral de “bekijk-toetsfunkties’’ SP (zie punt G, 
nummer ©), Z (zie punt G, nummer @), L (zie punt G, nummer ®), 
P (zie punt G, nummer ®) en S (zie punt G, nummers ® en D) zijn interes- 
sant bij een lauwe start. Deze startingang van PME heeft dus een grote 
betekenis bij het onderzoek (bijvoorbeeld om edukatieve redenen) of de 
dokumentatie (bijvoorbeeld een instruktielisting) van een al dan niet door 
u gemaakt programma, met inbegrip van systeemprogramma'’s in EPROM. 


E. Warme CEND-start 
Startadres: $17C5 


In hoofdstuk 11 van boek 3 hebben we het gehad over het op de band 
zetten van een gebruikersprogramma-mèt-labels, en over de voordelen 
daarvan. Dat kan via het programma TM (toets SEF), maar ook via PM. In 
het laatste geval moet men behalve een ID een SA opgeven die gelijk is aan 
BEGAD en een EA die gelijk is aan CEND. Die CEND, daar komt men met 
PME snel achter, omdat deze gelijk is aan het adres dat één hoger is dan 
het adres waarop de rode lantarendrager 77 staat. 

Okay, er staat een programma op de band waaraan we via PME willen 
sleutelen. We moeten dat programma eerst van de band teruglezen. Dat 
doen we via PM (toets G). Vervolgens moeten we PME warm starten. Dat 
betekent dat BEGAD, ENDAD en CEND elk een waarde moeten hebben 
die in overeenstemming moet zijn met het programma dat zojuist van de 
band is opgehaald. Verder moet CURAD een zinvolle waarde hebben. In 
hoofdstuk 11 is beschreven hoe dat allemaal moet. Je moest allerlei 
adressen noteren en zo. Niet zo handig, eerlijk gezegd. 

Gebruiken we de warme CEND-start van PME, dan behoort ook dat 
noteren voor een groot deel tot het verleden. Uiteraard moeten de ID en 
BEGAD wèl bekend zijn; ENDAD kan men opnieuw definiëren (bijvoor- 
beeld hoger kiezen omdat er instrukties en labels bijkomen). Dat laatste 
kan bijvoorbeeld nodig zijn als men via de "ID-FF-truuk” meerdere 
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ge-edite programma’s inleest die naadloos op elkaar aansluiten (tussen- 
liggende 77's worden verwijderd). 

Wat gebeurt er allemaal na de warme CEND start van PME? Er gebeurt dit: 
na de opgave van BEGAD en ENDAD (gaat net zo als bij de koude en de 
lauwe start) gaat PME op zoek naar de geheugenplaats waarin de pseudo- 
opcode 77 staat. Zodra die is gevonden wordt het adres waarop 77 staat 
met één verhoogd en wordt CEND gelijk gemaakt aan dit verhoogde adres. 
Er volgt de terugmelding: 

PM EDITOR 

XXX 77 

en CEND staat gericht op het adres (XXXX+1). 

De warme CEND-startingang kan in ieder geval worden gebruikt voor het 
opnieuw editen van programma'’s-mêt-labels die indertijd op de band zijn 
geschreven met SA=BEGAD en EA=CEND. Daar is die startingang primair 
voor bedoeld. Er zijn echter nog meer mogelijkheden. Die berusten op de 
vaststelling dat na het assembleren van een programma het EOF-teken 77 
niet verloren is gegaan. Na het assembleren, dus na het verwijderen van de 
labels, is die 77 nog steeds rode lantarendrager: hij zit in de geheugenplaats 
die direkt volgt op de geheugenplaats(en)} met de laatste instruktie van het 
programma. Indien we, om welke reden dan ook, een al geassembleerd 
programma later opnieuw willen editen (verwijderde labels kun je alsnog 
weer toevoegen!), kunnen we gebruik maken van de warme CEND-ingang 
van PME, mits we indertijd, bij het op de band zetten van dat programma 
óók de afsluitende 77 hebben meegenomen. Dat is heel eenvoudig een 
kwestie van EA één hoger kiezen dan een EA-waarde die hoort bij de 
laatste instruktie van het programma. Bij gebruik van de toets SEF van TM 
zit dat automatisch goed. Want bij gebruik van deze ingang van PME ís het 
van essentieel belang dat een 77 wordt aangetroffen. Is dat niet het geval, 
dan volgt geen terugmelding “PM EDITOR” en gaat PME de mist in! 
Mocht dit optreden, dan moet men de toets RST indrukken, PM opstar- 
ten en vervolgens een andere startingang van PME kiezen. 

Voor de praktijk van deze startingang: zie praktijkvoorbeeld 5, verderop in 
dit hoofdstuk. 


F. De BRK-toets 
Het onderbreken van het afdrukk. .. 


Van het programma PM herinneren we ons de BRK-toets. Die werd ge- 
bruikt om het afdrukken van langere tekst af te breken. Een soort grafi- 
sche noodrem dus. lets dergelijks doen we hier, bij PME, ook. Was het bij 
PM vooral de uitvoering van de M-toetsfunktie (hex dump) die nog wel 
eens tot het onderbreken met de BRK-toets aanleiding geeft, bij PME is 
dat vooral de uitvoering van de L-toetsfunktie (zie punt G, nummer ©). 
Men kan via het indrukken van toets L met zevenmijlslaarzen snel het 
programma bekijken. Is men ongeveer aangeland bij het gedeelte van het 
programma dat men wat rustiger en meer in detail wil bekijken, dan drukt 
men op de BRK-toets en vervolgens één of meer keren op de P-toets (zie 
punt G, nummer @). 

Na het indrukken van de BRK-toets volgt de terugmelding, bij monde van 
PME, van “”PM EDITOR". 
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N.B. Indien men PME start via de koude, lauwe of warme CEND-start- 
ingang, dan is in de beginfase de BRK-sprongvektor nog gespecificeerd 
volgens PM. Onderbreekt men de melding "BEGAD, ENDAD:" door het 
indrukken van de BRK-toets, dan volgt de terugmelding “JUNIOR. 


G. De toetsfunkties van PME 
® Toets SP (spatie) (Skip) 
Instruktie-plustoets 


Dit is een oude bekende van de standaard-editor. We gaan ervan uit dat 
PME op de linker kolom van het tv-scherm of printerpapier een instruktie 
heeft afgedrukt. Bij PME mèt het adres met de opcode van die instruktie. 
De schrijfwijzer van de elekterminal of de wagenpositie van de printer staat 
“gericht’’ op de eerste positie van de rechter kolom van het tv-scherm of 
printerpapier; en wel op dezelfde regel als de laatste instruktie waar we het 
zonet over hadden. Drukken we nu de spatiebalk SP (space) in (niet te 
verwarren met toets S, gevolgd dooe toets PI), dan zien we niets verschij- 
nen op die rechter kolom, die was en is bedoeld voor de weergave van onze 
toetsakties. Maar dat ligt uitsluitend aan het feit dat het een spatietoets 
was die ingedrukt werd! _ 

Dat neemt niet weg dat het indrukken van die spatietoets wel degelijk iets 
teweeg brengt. Op de volgende regel en op de linker kolom wordt namelijk 
de volgende instruktie van het programma afgedrukt, of FF XX 00, als de 
volgende "'instruktie’’ een label is. Aan het adres van de nieuwe instruktie 
of labet kan men de instruktielengte van de vorige instruktie afmeten. Dat 
adres is één, twee of drie hoger dan het adres van de vorige instruktie. 
Indien alle instrukties van het programma zijn doorlopen, of juister gezegd: 
indien door herhaald indrukken van SP de laatste “instruktie” 77 is afge- 
drukt, volgt na het vervolgens nogmaals indrukken van SP het volgende: 
XXXM 77 SP 

DONE 

YYYY ZZ (ZZ(ZZ) 

Voordat de nieuwe instruktie wordt afgedrukt volgt dus de terugmelding 
“DONE, ten teken van het feit dat de variabele eindadreswijzer CEND is 
gepasseerd. Het adres YYYY is één hoger dan het adres XXXX omdat aan 
de "'instruktie’’ met de opcode 77 de instruktielengte één wordt toegekend. 
De instruktie “ZZ ZZ ZZ" is hoogstwaarschijnlijk een fantasie-instruktie. 
Dat hangt af van de voorgeschiedenis: tijdens een computersessie kan men 
voor de tweede keer de editor koud hebben gestart. In ieder geval hoort 
die "ZZ ZZ ZZ" niet bij het programma waarmee men bezig is. Het aantal 
Z-en hangt af van de instruktielengte van de al dan niet echte instruktie. 
Uit de bespreking van de subroutine OPLEN/LENAGC (hoofdstuk 8 van 
boek 2) weten we dat aan elke kombinatie XX van twee datanibbles een 
opcode wordt toegekend. 

N.B. Indien men na het skippen van de instruktie 77 méér dan één keer SP 
indrukt wordt telkens de volgende “instruktie’’ afgedrukt na de melding 
"DONE”. Het programma PME zorgt dus niet voor een blokkade (“tot 
zover en niet verder''), maar geeft met de meldingen “DONE” wel aan dat 
het dóórgaan met "skippen" niet zo erg zinvol is. 
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@D Toets Z (Back) 
Instruktie-mintoets 
NIEUW! 


Een verbetering van PM ten opzichte van de standaardmonitor was de 
mintoets naast de plustoets. Ten opzichte van de standaard-edíitor heeft 
PME er naast de skiptoets (instruktie-plustoets) een instruktie-mintoets 
bijgekregen. 


Dat gaat zo: 
B2AC FF 1766 Z (label 17) 
d2AB CA Z (DEX) 


d2A9 A9 FF Z {LDA #FF) 

H2A6 29 1460 (enzovoorts) (JSRlabel 14) 

Indien men zó vaak de Z-toets indrukt dat de instruktie of het label op het 
adres BEGAD is bereikt zal het opnieuw indrukken van de Z-toets op- 
nieuw het afdrukken van de eerste instruktie of het eerste label tot gevolg: 
hebben. Lager dan BEGAD (kwa adres) gaat gewoon niet. 


@ Toets K (Kill) (Delete) 
Instruktie of label verwijderen 


Dit is een oude bekende. Het indrukken van toets K heeft tot gevolg dat de 
als laatste afgedrukte instruktie uit het geheugen wordt verwijderd, of 
juister: wordt overschreven door de volgende instruktie(s). Het programma 
wordt dus, afhankelijk van de lengte van de verwijderde instruktie, met 
één, twee of drie bytes ingekort. De instruktie die in het geheugen volgt op 
de verwijderde instruktie wordt afgedrukt. Werd de laatste instruktie 
verwijderd, dan ziet men het adres CEND min één met de daarbij horende 
data 77 afgedrukt. 

Een voorbeeld: 

$2A6 20 1400 SP 

92A9 A9 FF K 


H2A9 CA SP 
O2AA FF 1769 SP 
92AD 77 SP 
DONE 


D2AE XX XX XK 
We zien dat de instrukties CA en FF 17 Ó® twee plaatsjes lager (kwa adres) 
in het geheugen staan. 


® Toets T (Top of file) 
Terug naar het begin 
NIEUW! 


Niet zo’n spektakulaire nieuwe toetsfunktie, die T-toets, maar toch reuze 
handig. Het indrukken van de T-toets zorgt ervoor dat de instruktie of het 
label op het eerste adres BEGAD van het programma wordt afgedrukt. Dat 
is bijvoorbeeld van belang als men het programma wil kontroleren met 
toets SP, toets L of toets P. 
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Een voorbeeld: 

B2AE XX XX XX T 

6200 FF 10 09 

Waaruit blijkt dat BEGAD in dit programmavoorbeeld gelijk is aan G200 
en dat het programma begint met label 19. Bij de oude editor kon men 
BEGAD bereiken via Search FF 19 of door te skippen. Bij PME is er nog 
een alternatief in de vorm van “SFF 10 99” (zie punt G, nummers © en 
@), maar die ene T indrukken betekent toch beduidend minder werk. En 
op het punt van dom toetsenwerk luidt ons devies, zoals bekend: hoe 
minder werk, hoe liever. 


® Toets | (Insert) 
Instruktie of label tussenvoegen 


Deze toetsfunktie is niet nieuw; ook de standaard-editor is er mee uitgerust. 
Het indrukken van toets | plus de daarop volgende ingetoetste numerieke 
data (die hoort bij de tussen te voegen instruktie) heeft tot gevolg dat de 
zojuist opgegeven instruktie in het werkgeheugen wordt gezet op een 
plaats of plaatsen direkt vóór de plaats of plaatsen die bezet zijn door de 
als laatste afgedrukte instruktie. Dat gebeurt echter pas nadat een aantal 
numerieke toetsen is ingedrukt dat overeenkomt met de lengte van de 
tussen te voegen instruktie. De als laatste afgedrukte instruktie en de 
daarop volgende instrukties schuiven in het geheugen op naar een hoger 
adres. 

Indien men na het indrukken van toets | en vóór de volledige opgave van 
de instruktie (twee, vier of zes numerieke toetsen indrukken) een andere 
dan één van de toetsen @... Sen A... F indrukt volgt de foutmelding: 
ILLEGAL KEY 

en wordt opnieuw de instruktie afgedrukt die we “laatste instruktie”’ 
hebben genoemd. Men kan per ongeluk na | een niet-numerieke toets 
indrukken. Maar het kan ook bewust gebeuren. Bijvoorbeeld omdat men 
meteen al in de gaten heeft dat er foutieve data is opgegeven. Na de terug- 
melding “ILLEGAL KEY” kan men dan gewoon opnieuw beginnen. Wel 
dan opnieuw beginnen met het indrukken van toets |, want het ging om de 
Insert-toetsfunktie en niet om de Input-funktie. 

Ook nu geven we een klein voorbeeldje. Gaan we uit van de situatie, direkt 
na het verwijderen van de instruktie A9 FF, zie punt G, nummer @. Op 
adres 92A9 komt dan de instruktie CA te staan. We willen de instruktie 
A9 FF vervangen door A9 90. Daartoe verwijderen we A9 FF. Dât is 
gebeurd via het indrukken van de K-toets. Nu drukken we de toetsen |, A, 
9, Gen Pen gebeurt er het volgende: 

G2A9 CA A9 GP 

H2A9AIGE SP 

G2AB CA SP 

G2AC FF 17 99 | 

U ziet dat alle instrukties na de LDA-immediate weer twee plaatsen zijn 
opgeschoven, dus naar een adres dat twee hoger is. Trouwens: is het u 
dók opgevallen dat PME ervoor zorgt dat de bytes van een instruktie door 
een spatie gescheiden worden weergegeven? En dat niet alleen op de linker 
nreaktiekolom’’ maar ook op de voor de gebruiker bestemde rechter 
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"'aktiekolom'’? En waarom? Omdat het zo een stuk overzichtelijker wordt. 
Samen met de Input-toetsfunktie (zie punt G, nummer 69) is de Insert- 
toetsfunktie er voor de opgave van instrukties en labels. In beide gevallen 
wordt de geheugenruimte die het programma in beslag neemt groter. Die 
geheugenruimte bestaat uit de adressen BEGAD tot en met het adres 
waarop zich de hekkesluiter 77 bevindt. Dus van BEGAD tot CEND. 

Nu is de voor het programma gereserveerde geheugenruimte — inklusief 
de labels! — niet oneindig groot. We hebben immers een ENDAD opgege- 
ven. Dat is niet voor niets gebeurd. Bij de standaard-editor speelt die 
ENDAD overigens geen enkele rol, bij de assembler daarentegen wel. 
Evenals bij PME. Want we gaan het nu hebben over een foutmelding die 
wordt afgedrukt indien het beschikbare (lees: het opgegeven) geheugen- 
bereik dreigt te worden overschreden. We gaan het dus hebben over iets 
dat nieuw is ten opzichte van de standaard-editor. 

Zoals zal blijken en trouwens al eerder is opgemerkt gebruiken we de 
assembler van de hoofdstukken 5 en 9 van boek 2 dok voor programma’s 
die via PME zijn opgegeven. Tijdens de eerste fase van het assembleren 
wordt elk gevonden label (opcode FF) opgeslagen in de label-geheugen- 
ruimte en vervolgens uit het programma verwijderd: het programma wordt 
met drie bytes ingekort. Voordat het eerste label kan worden verwijderd 
moet het worden weggeschreven. Is er plaats voorrdat label, dan is er ook 
automatisch plaats voor de andere labels van het programma. 

Het eerste label moeten we dus kwijt kunnen op de geheugenplaatsen 
ENDAD en de twee daaronder gelegen geheugenplaatsen (lager kwa adres; 
hoger op de ‘memory map’). Deze geheugenplaatsen mogen dus niet 
worden gebruikt voor instrukties of labels van het te editen programma, en 
ook niet voor het EOF-teken 77. Dit betekent dat de stand van CEND 
zoals in figuur 1 aangegeven de laagst mogelijke stand is; CEND staat dan 
op het hoogst mogelijke adres gericht, heeft dan de maximale inhoud. 

(T ussenopmerking. De op pagina 169 en pagina 14 van de eerste druk van 
boek 2 genoemde minimale aantallen vrije geheugenplaatsen zijn dus te 
groot. Men moet drie plaatsen reserveren voor het eerste label en één plaats 
voor de 77. Het adres ENDAD telt mee bij de bepaling van het totale 
aantal geheugenplaatsen). 

Terug naar de kontrole of er nog plaats is. Zodra een instruktie of label is 
opgegeven — via een Insert of via een Input — bekijkt PME of de daarmee 
gepaard gaande verhoging van CEND (het programma wordt immers 
langer) niet een nieuwe CEND tot gevolg heeft die kwa adres hoger is dan 
de CEND van figuur 1. Is dat wel het geval, dan volgt de terugmelding 
"FULL'. De als laatste opgegeven instruktie wordt niet in het geheugen 
gezet. Daar is immers geen plaats meer voor. Wèl wordt er na de terug- 
melding “FULL” een instruktie afgedrukt. In het geval van de Insert is 
dat de instruktie die als laatste werd afgedrukt voordat de nieuwe instruk- 
tie via toets | werd opgegeven — en “geweigerd’’. Met andere woorden: de 
"displaywijzer"’ CURAD is ongewijzigd gebleven. In het geval van een 
opgegeven en geweigerde instruktie via Input wordt CURAD wèl verhoogd 
met de instruktielengte van de laatste afgedrukte instruktie. Voor het 
verschil tussen Input en Insert: zie ook tabel 2. 

N.B. Uit figuur 1 kan men opmaken dat de laatste geheugenplaats die 
beschikbaar is voor het te editen programma, een adres ENDAD-4 heeft. 
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%x 1 


81912 - 1 


Figuur 1. De “onderste’’ vier geheugenplaatsen (met de hoogste vier adressen) van het 
door BEGAD tot en met ENDAD vastgelegde geheugenbereik kunnen niet worden 
gebruikt voor het te editen programma. Zodra de inhoud van CEND kleiner is dan de 
inhoud van ENDAD minus twee zorgt PME voor de foutmelding “FULL”. Het 
verkeersbord in de onderste drie geheugenplaatsen betreft uitsluitend de situatie 
tijdens het editen. Na de eerste fase van het assembleren komt het eerstgevonden 
label op deze geheugenplaatsen te staan (achtereenvolgens labeinummer, ADH en 
ADL). 


Het kan zijn dat er noodgedwongen nog meer geheugenplaatsen onge bruikt 
blijven dan de vier van figuur 1 (de geheugenplaats met 77, alsmede 
geheugenplaats ENDAD inbegrepen). Bijvoorbeeld ín het geval dat 
geheugenplaats ENDAD-4 weliswaar nog vrij is (alle plaatsen van BEGAD 
tot en met ENDAD-3 zijn dan al met instrukties en labels bezet), maar 
dat men vervolgens een twee- of driebyte-instruktie wil opgeven. 

Nòg een N.B. Nadat een opgegeven instruktie wegens plaatsgebrek is gewei- 
gerd is de variabele eindadreswijzer CEND verhoogd in overeenstemming 
met de lengte van de geweigerde instruktie. Het EOF-teken 77 blijft echter 
op zijn plaats! 


© Toets S (Search) 
@D Toets Y (Yes) 


De Search-toetsfunktie kennen we al van de "oude’’ editor. Daar moest 
men twee bytes opgeven. Dus vier numerieke toetsen indrukken. Die twee 
bytes konden een twee-byte-instruktie voorstellen. Of de eerste twee bytes 
van een drie-byte-instruktie of van een label. Op zoek naar dat twee-byte- 
patroon, vanaf BEGAD, werd er gestopt zodra dat patroon werd gevonden. 
Men kon niet nagaan of dat patroon misschien nog wel een keer voor- 
kwam. Denk aan instrukties zoals A9 90. Eén-byte-instrukties kon je 
helemáál niet opsporen en bij drie-byte-instrukties kon het vriezen of 
dooien. 

Dat gaat nu wel even anders. 

De Search-toetsfunktie van PME heeft twee belangrijke eigenschappen, die 
beide nieuw zijn ten opzichte van de standaard-editor. 
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Ten eerste: We zoeken niet een twee-byte-patroon op, maar een instruktie, 
die één, twee of drie bytes lang mag zijn. Men kan dus letterlijk alles 
opsporen wat men wil. 

Ten tweede: Indien men wil nagaan of een gezochte — èn gevonden — 
instruktie verderop in het door BEGAD en CEND bepaalde geheugen- 
bereik nogmaals voorkomt, dan is dat mogelijk. We kunnen dus niet alleen 
alle verschillende instrukties en labels opsporen maar ook alle adressen 
waarop onderling identieke instrukties staan (het is voor u te hopen 
dat de labels elk maar één keer voorkomen!). 


Hoe gaan we in de praktijk te werk? 

1. Eerst drukken we toets S in. Die wordt afgedrukt op de rechter kolom. 

2. Vervolgens geven we de op te sporen instruktie op. Dat gebeurt door 
het indrukken van twee, vier of zes numerieke toetsen. Het aantal is in 

overeenstemming met de lengte van de op te sporen instruktie of het op te 
sporen label. Pas nadat de instruktie volledig is opgegeven gaat PME op 
zoek naar die instruktie. De opgegeven instruktie wordt al tijdens de 
opgave naast de S op de rechter kolom afgedrukt; PME zorgt voor spaties 
tussen de bytes. 

Drukt men na de S-toets per ongeluk of bewust een niet-numerieke toets 

in, dan volgt de terugmelding: | 

ILLEGAL KEY 

en moet men opnieuw gaan 'searchen’’, te beginnen met het indrukken 

van S. Men kan bewust een niet-numerieke toets indrukken als men in de 

gaten krijgt dat men een verkeerde instruktie aan het opgeven is. Ook nu 
wordt de opgegeven instruktie afgedrukt met een spatie tussen de bytes 
van de instruktie. 

3. De instruktie is opgegeven en PME gaat ernaar op zoek. Beginnend 
vanaf het laagste adres BEGAD. Er zijn nu twee mogelijkheden: De 

gezochte instruktie is aanwezig in het door BEGAD en CEND gespecifi- 
ceerde geheugengedeelte; PME reageert door op de volgende regel en op de 
linker kolom de instruktie af te drukken, mèt adres. Is daarentegen de 
gezochte instruktie of het gezochte label niet aanwezig in dat geheugen- 
gedeelte, dan volgt de terugmelding: 

DONE 

XXX ZZ ZZ ZZ 

Waarbij XXXX het adres is dat wordt bereikt na het overschrijden van 

CEND en ZZ ZZ ZZ de instruktie is waarvan de opcode op adres XXXX 

staat (deze hoeft niet per se drie bytes lang te zijn, zoals de zes Z-en sugge- 

reren). 

4. De nu volgende toetsakties zijn uitsluitend van belang indien er, tijdens 
punt 3, een instruktie is gevonden. Men kan nu twee verschillende 
wegen inslaan: 

Aa. Men wil nagaan of de instruktie vaker voorkomt in het onderhavige 

geheugengedeelte. Men drukt daartoe toets Y in. Die Y zien we op de 
rechter kolom verschijnen. Nu kan PME zich op twee manieren terug- 
melden (op de linker kolom). Indien de gezochte instruktie nog minstens 
één keer voorkomt wordt deze afgedrukt, mèt het bijbehorende adres. Dat 
adres verschilt dus van het adres van de “eerste vondst’ (zie punt 3); dat 
adres is hoger dan het eerste adres. Het kan ook voorkomen dat de 
gezochte instruktie slechts één keer voorkomt. In dat geval volgt de 
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terugmelding: 

DONE 

XXX ZZ ZZ ZZ 

(zie punt 3). 

Ab. Men wil niet nagaan of de instruktie vaker voorkomt in het onderh avi- 

ge geheugengedeelte. Men drukt daartoe een willekeurige toets van het 

ASCIi-toetsenbord in die bij indrukken een ASCIl-kode genereert, echter 

met uitzondering van de toets Y. Er volgt dan de terugmelding: 

DONE 

XXX ZZ ZZ ZZ 

waarbij ZZZZZZde in punt 3 gevonden instruktie is en XXXX het 

bijbehorende adres. 

Over de praktijk van het “instruktietje zoeken’ moeten we nog een paar 

belangrijke opmerkingen kwijt: 

a. Men kan het zoeken naar een instruktie op een willekeurig moment 
afbreken. Aan de instruktie en het adres die na de terugmelding 

UDONE” kan men zien of er niet verder gezocht is danwel dat er verder 

niets is gevonden. 

b. Een instruktie-zoekaktie (lees: de Search-toetsroutine) is pas dan 
volledig afgesloten indien de terugmelding “DONE” plus de afdruk van 

een instruktie heeft plaatsgevonden. Daarbij is het niet van belang of die 

LDONE” tot stand komt omdat er (verder) niets is gevonden of omdat we 

verder niets willen zoeken (via het indrukken van een willekeurige toets # 

de Y-toets). 

c. De Y-toets heeft uitsluitend betekenis nadat toets S is ingedrukt en 
nadat de op te zoeken instruktie is opgegeven. Heeft men niet gekozen 

voor de S-toetsfunktie en drukt men de Y-toets in, of doet men dat terwijl 

de op te zoeken instruktie nog niet volledig is opgegeven, dan volgt de 

terugmelding “ILLEGAL KEY”. 

d. Tijdens het afbreken van een zoekaktie hebben alle software-toetsen op 
Y na dezelfde betekenis. Er volgt dan geen terugmelding "ILLEGAL 

KEY". De oorspronkelijke funktie van de toetsen van PME — óók S, maar 

Y uitgezonderd — is tijdens het opzoeken, dus na het indrukken van toets 

S, maar vóór een afsluitende terugmelding ’DONE”, niet van toepassing. 

Andere toetsen, die normaal gesproken geen funktie hebben en dus aan- 

leiding geven tot de terugmelding “ILLEGAL KEYS, hebben na het 

indrukken van S en nadat een instruktie minstens één keer is gevonden, 

daarentegen tijdelijk wèl een funktie. 

Een en ander zal u helemáál duidelijk worden In hoofdstuk 15, bij de 

bespreking van de PME-software. | 

De hoogste tijd voor een praktijkvoorbeeld. 

We doen dat aan de hand van de listing op printerpapier van tabel 1. 

U ziet in tabel 1 dat we zijn begonnen met een lauwe start van PME. De 

adreswijzers BEGAD en ENDAD zijn zodanig gekozen dat de standaard- 

EPROM, op de standaardkaart van de junior-computer wordt bestreken. 

Na het indrukken van CR (is niet zichtbaar in tabel 1) volgt netjes de 

terugmelding “PM EDITOR” en wordt de eerste instruktie "”1C@9 85 F3” 

afgedrukt. 

We willen nagaan hoe het zit met het voorkomen van de instruktie STAZ- 

POINTL en toetsen S85FA. De spatie tussen 85 en FA wordt door PME 
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Tabel 1. Een voorbeeld van het gebruik van de lauwe startingang van PME en van het 
gebruik van ondermeer de Searchtoets S. 


JUNIOR ® 


1667 

1667 20 R 

BEGAD,ENDAD: 1CQ9,IFFF 
PM EDITOR 
1CGg 85 F3 
1C98 85 FA 
1C83 85 FA 
ICBY 85 FA 
ICDD 85 FA 
iD3D 85 FA 
1E37 85 FA 
IFDA 85 FA 
IFEA 85 FA 
DONE 

2007 GA 
ICBF C8& 
ICEA C8 
ID55 C8 
IEGE C8 
IE56 C8 
IF70 C8 
IFB6 C8 
IFBF C8 
IFC4 C8 
DONE 

2000 JA 
ICGg 85 F3 
1Cg2 68 
1CQ3 85 Fi 
1Cg5 68 
iCg6 85 EF 
1CG8 85 FA 
ICGA 68 
ICGB 85 F9 
ICGD 85 FB 
ICGF 84 F4 
ICI 86 FS 2 


ua 
Co 
ur 
rj 
> 


U 3 KGOEGOES EGOEGOIG EGI EG U OGG EG MG KG HG KG HG 
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iC13 BA __ @ 

iCI4 86 F2 

1IC1I6 A2 O1 

iC18 86 FF 

ICÌIA 4C 33 1C S8D 83 ÌA 
ICIF 8D 83 lA Y 

DONE 

2000 JA S8E 83 1A 
DONE 


2099 JA S8C 83 ÌA 
DONE 
2005 JA 


afgedrukt. Dat hoeft u niet te doen. Sterker zelfs: mäg u niet doen, want 
dan volgt de terugmelding “ILLEGAL KEY” en dan kunt u opnieuw 
beginnen. 

Nou, u weet dat de gezochte instruktie voorkomt, want geheugenplaats 
DOFA is de veel gebruikte displaybuffer POINTL. Het is dan ook meteen 
raak: op adres 1CQ8 komen we hem voor het eerst tegen. Het vervolgens 
acht keer indrukken van toets Y levert nog zes andere plaatsen op waar de 
instruktie zich bevindt. Merk op dat de diverse vondsten een toenemend 
adres hebben. Na de achtste Y zijn alle instrukties gevonden; er volgt de 
terugmelding DONE en er wordt vervolgens een instruktie op adres 2000 
afgedrukt. Dat laatste is niet verwonderlijk als men bedenkt dat bij de 
lauwe start CEND gelijk wordt gemaakt aan ENDAD. En die is IFFF. 
Vervolgens gaan we in tabel 1 op zoek naar de instruktie C8. Dat is INY. 
Die blijkt maar liefst negen keer voor te komen. U kunt overigens de 
adressen met de gevonden instrukties STAZ-POINTL respektievelijk INY 
kontroleren aan de hand van de listing van de standaard-EPROM op de 
pagina's 180... 189 van boek 2. 

Gaan we verder met tabel 1. Na het indrukken van toets T wordt het adres 
1CÓD afgedrukt, met de eerste instruktie. En zo hóórt het ook. Over de 
uitwerking van het indrukken van toets P komen we nog te spreken 
(zie G, punt ©). 

Vervolgens en tot slot van tabel 1 doen we een edukatief onderzoekje. We 
willen weten waar en hoe in de standaard-EPROM het richtingsregister 
PBDD wordt beïnvloed. Het adres van PBDD is $1A83. Dit register moet 
worden (zijn) beïnvloed door een store-instruktie. Er zijn drie mogelijk- 
heden: 

8D 83 1A STA-$1A83 

3E 83 1A STX-$1A83 

8C 83 1A STY-$1A83 

Eerst gaan we na of er een STA-$1A83 voorkomt. Dat blijkt éen keer het 
geval te zijn. De zoekakties naar STX-$1A83 en STY-$1A83 hebben een 
negatief resultaat. Belangrijke edukatieve konklusie: de enige plaats waar 
PBDD wordt beïnvloed is een plaats (lees: adres) die deel uitmaakt van de 
RESET -opstartroutine van de standaard-monitor. | 

We gaan verder met de volgende toetsfunktie van PME. 
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® Toets L (List) 
Het programma afdrukken 
Ook deze is nieuw! 


Van PM hebben we allerlei afdrukkommando'’s leren kennen. Denk aan de 
hex dump. Tot nog toe ging het bij PME om toetsfunkties die aanleiding 
geven tot het afdrukken van één instruktie, eventueel gekombineerd met 
een terugmelding. De toetsfunktie L en toetsfunktie P (zie G, punt ©) 
zorgen voor het achterelkaar afdrukken van meerdere instrukties. 

Het indrukken van toets L heeft tot gevolg dat — te beginnen met de eerste 
instruktie of het eerste label op BEGAD — alle instrukties en labels van het 
door BEGAD en CEND bepaalde geheugengedeelte worden afgedrukt. En 
wel onder elkaar, op de linker kolom van het tv-scherm of printerpapier. 
Zodra alle instrukties zijn afgedrukt (de displaywijzer CURAD verplaatst 
zich naar een hoger adres in het geheugengedeelte na het afdrukken van 
een instruktie) volgt de terugmelding “DONE en wordt er vervolgens een 
instruktie afgedrukt die in overeenstemming is met de waarde van CURAD 
na het “passeren’’ van CEND door CURAD. De toetsfunktie L is met name 
bedoeld voor het snel door een programma “fietsen”. Wil men een bepaald 
gedeelte rustig kunnen bekijken dan drukt men op de BRK-toets (terug- 
melding “PM EDITOR") en gaat verder via het minstens één keer indruk- 
ken van de P-toets, aan de bespreking waarvan we nu toe zijn. 


@ Toets P (Print) 
Instruktieblokken afdrukken 


Het gaat om een variant op de L-toetsfunktie. We gaan uit van een laatste, 
door PME afgedrukte instruktie. Hoe dat is gebeurd doet er niet toe. Dat 
hangt af van de voorgeschiedenis. Die laatste instruktie staat op de linker 
kolom. We drukken nu op de P-toets. Op dezelfde regel als de regel van de 
laatste instruktie, maar nu op de rechter kolom wordt de ingedrukte P als 
P afgedrukt. En vervolgens worden de daarop volgende 15 instrukties 
onder elkaar en op de linker kolom afgedrukt. In totaal worden er dus, de 
afgedrukte instruktie met op dezelfde regel de P meegerekend, zestien 
instrukties afgedrukt. In het geval van de Elekterminal is dat precies een 
heel tv-scherm vol. 

We zeggen nou wel: zestien instrukties afgedrukt, oftewel een instruktie- 
blok, maar dat is alleen dan het geval als er geen “opcode 7/ wordt 
vastgesteld. Zodra dit EOF-teken wordt vastgesteld wordt het afdrukken 
van het instruktieblok onderbroken. De “instruktie’” 77 wordt als laatste 
afgedrukt. 

N.B. Een praktijkvoorbeeld van toets P treft men aan in tabel 1. 


(Ò Input-toetsfunktie 
Toetsen @...9enA...F! 


Het is al eerder in dit verhaal opgemerkt: Voor het realiseren van de 
INPUT-toetsfunktie is het niet nodig om, voordat de numerieke data 
wordt opgegeven, de een of andere funktietoets in te drukken. De enige 
andere toetsfunkties waarvan de uitvoering berust op de opgave, door de 
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gebruiker, van numerieke data, zijn Insert (toets l) en Search (toets S). 
Voordat bij die toetsfunkties numerieke data kan worden opgegeven moet 
eerst de toets | respektievelijk S worden ingedrukt. 


Indien PME na de uitvoering van een toetsfunktie wacht op een nieuwe 
ingedrukte toets (dit kan men zien aan de stand van de “eursor’’ van de 
Elekterminal of de wagenpositie van een printer; deze staat gericht op de 
eerste positie van de rechter kolom), en indien er vervolgens numerieke 
toetsen worden ingedrukt, dan is er automatisch sprake van de Input- 
toetsfunktie. | 

Wat was ook weer de Input-toetsfunktie? Deze toetsfunktie houdt in dat 
de door de gebruiker opgegeven instruktie of het door de gebruiker opge- 
geven label nadat deze volledig is opgegeven in het geheugen op een plaats 
of plaatsen terecht komt die direkt volgen op de plaats of plaatsen waar de 
tot dan toe als laatste (op de rechter kolom) afgedrukte instruktie is 
gehuisvest. 

De praktijk van het “Inputten’ vertoont overeenkomsten en verschillen 
met de praktijk van de Insert-toetsfunktie. 

Ook nu gaat de instruktie pas het geheugen in nadat deze volledig is 
opgegeven. Ook nu geeft het per ongeluk of bewust indrukken van een 
niet-numerieke toets aanleiding tot de foutmelding “ILLEGAL KEY“. In 
dat geval moeten we opnieuw beginnen met de opgave van de instruktie. 
Ook nu wordt de instruktie afgedrukt op de linkerkolom op de volgende 
regel, nadat deze volledig is opgegeven. Ook nu zorgt PME voor spaties 
tussen de bytes van de instruktie; zowel op de rechter als op de linker 
kolom. Dus, wat de rechter kolom betreft, niet zelf een spatie opgeven! 
Want dan (“ILLEGAL KEY”) kunt u opnieuw beginnen met die 
instruktie. 

Omdat er na het uitvoeren van de Input-toetsfunktie een instruktie bijge- 
komen is in het geheugen verplaatsen de 77 en CEND zich naar een hoger 
adres. Hoeveel hoger, dat hangt af van de lengte van de zojuist opgegeven 
instruktie. 

Omdat ook hier de door BEGAD en CEND afgebakende geheugenruimte 
in omvang toeneemt bestaat ook hier de kans dat het beschikbare geheu- 
gen na verloop van tijd vol dreigt te raken. We verwijzen u daarvoor naar 
figuur 1 en het verhaal dat daarover is verteld bij de behandeling van de 
Inserttoetsfunktie. Is er geen plaats meer voorde zojuist opgegeven instruk- 
tie, dan volgt de foutmelding: | 

FULL 

XXXX ZZ ZZ ZZ 

Waarbij het adres XXXX en de instruktie ZZ ZZ ZZ in overeenstemming 
zijn met de verhoging van CURAD als gevolg van de zojuist opgegeven, 
maar niet in het geheugen toegelaten instruktie. Dit in tegenstelling tot de 
gang van zaken bij de Insert-toetsfunktie, waar XXXX en ZZ ZZ ZZ horen 
bij de instruktie die als laatste is afgedrukt voordat de geweigerde instruk- 
tie werd opgegeven. 

Ook nu wordt ondanks de weigering van de instruktie door het geheugen 
de variabele eindadreswijzer CEND verhoogd in overeenstemming met de 
geweigerde instruktie. Ook nu, bij Input, blijft het EOF-teken 7/ op zijn 
plaats! 

In de vorm van de twee listings van tabel 2 geven we een praktijkvoorbeeld 
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Tabel 2. De opgave van een fantasie-programma met uitsluitend één-byte-instrukties 
via de Input-toetsen 0... 9 (linker helft; de eerste instruktie moet altijd via Insert 
worden opgegeven) en via de Insert-toets | (rechter helft). Let op het verschil in 
"“yolmelding’” en op het verschil in volgorde waarin de instrukties in het geheugen 


staan. 


JUNIOR 


1599 


i534 29 R 
BEGAD,ENDAD: 
PM EDITOR 


0240 
0200 
6201 
A202 
1203 
9204 
9205 
1206 
1207 
9208 
9209 
_029A 

920B 
FULL 
B20C 
9209 
0291 
5202 
0203 
A24 
0205 
1206 
1207 
5208 
1209 
020A 
120B 
929C 
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77 


200, 2AF 


ICA 
E8 
C8 


JUNTOR 


1598 


D Insert 


1596 23 R 


BEGAD, ENDAD: 


PM EDITOR 


A20 
020% 
320 
3209 
5200 
32090 


77 


CA 
E8 


C8 
EA 
48 


ILLEGAL 


0200 
3234 
3207 
3290 
A20 
A20 
3290 
5200 
FULL 
0200 
3200 
A21 
3202 
A20 3 
5204 
A25 
3296 
5207 
0208 
0299 
923A 
020B 
B20C 


48 


98 
68 


KEY 


233, 23F 


TCA 
IE8 
IC8 
IEA 
148 
iU 


198 
158 
128 
188 
TAA 
118 
ID8 
I5R 


T 
P 


waarin het verschil tussen Insert en Input duidelijk tot uiting komt. In 
beide gevallen definiëren we een geheugenbereik (BEGAD, ENDAD) dat 
17 geheugenplaatsen omvat (ENDAD meegerekend!). In beide gevallen 
gaat het om een fantasie-programma dat uitsluitend uit één-byte-instruk- 
ties bestaat. In het linker geval van tabel 2 worden de instrukties — afge- 
zien van de verplichte eerste Insert — opgegeven via de Input-toetsfunktie. 
De rechter listing van tabel 2 betreft de opgave van dezelfde één-byte- 
instrukties in dezelfde volgorde, maar dan uitsluitend via de Inserttoets- 
funktie. 

In beide gevallen komt op adres $29B de laatste instruktie terecht. In 
beide gevallen is er geen plaats meer voor de instruktie met de opcode 58 
(CLI). Dat 929B de laatste beschikbare geheugenplaats is stemt overeen 
met de regel dat die laatste plaats een adres heeft dat gelijk is aan ENDAD 
min vier. Immers: $OF - $9B is gelijk aan 15 min 11 en dat is vier. Op 
adres G20C staat de 7/7 (dat blijkt ook uit de in tabel 2 via toets P afge- 
drukte instrukties) en de drie geheugenplaatsen @20D, 92E en B20F zijn 
beschikbaar voor het opbergen van het eerste label tijdens de eerste fase 
van het assembleren. 

In tabel 2 zien we verder heel duidelijk het verschil tussen insert en Input 
ten aanzien van de volgorde waarin de instrukties in het geheugen worden 
gezet. Oftewel het verschil tussen toevoegen en tussenvoegen. De volgorde 
is omgekeerd. 

U ziet in tabel 2 ook heel goed het verschil in afgedrukte instruktie na de 
melding “FULL”. 

Merk verder op dat in de rechter helft van tabel 2 bewust de foutmelding 
“ILLEGAL KEY” is uitgelokt. Bij het opgeven van @8 werd per ongeluk 
"1'* ingetoetst in plaats van “1”. Het indrukken van toets U bracht snel 
uitkomst. 


@ Toets X (EXecute) 
Assembleren via een druk op de (X-)toets 


Het programma PME werkt net als de standaard-editor op basis van hexa- 
decimale labels. Dat betekent dat de assembler die we al in boek 2 hebben 
leren kennen ongewijzigd kan worden gebruikt om programma's die met 
PME in elkaar zijn gezet te assembleren. Dat wil dus zeggen dat de labels 
stuk voor stuk uit het programma worden gehaald nadat de adresinforma- 
tie en het labelnummer zijn genoteerd in de labelgeheugenruimte, welke 
wordt opgebouwd op plaatsen vanaf ENDAD. 

De assembler kan ook hierom worden gehandhaafd omdat het een ’'stil’’ 
programma is: tijdens de uitvoering van het assemblerprogramma wordt er 
geen gebruik gemaakt van het display en men hoeft ook geen toetsen in te 
drukken. Pas als de assemblage is voltooid taat men dat weten via een 
oplichtend display. 

Het startadres van de assembler was en is $1F51. Vroeger moest je na het 
editen toets RST indrukken, dit startadres opgeven en op de GO-toets 
drukken. Een alternatief was om de NMI-sprongvektor te richten op het 
startadres van de assembler en, als het zo ver was, toets ST in te drukken. 
Dat hoeft nu, bij PME, allemaal niet meer. 

Want we hebben de X-toetsfunktie. 
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Drukt men de toets X in, dan wordt er na een paar voorbereidende akties 
door PME naar de assembler gesprongen. Eén van de voorbereidende 
akties houdt in dat de NMI-sprongvektor wordt gericht op een adres 
binnen PME, waarnaar moet worden gesprongen na het assembleren. Na 
het indrukken van toets X zien we na verloop van tijd (de tijdsduur hangt 
af van de grootte van het te assembleren programma) het zeven segment- 
display oplichten. Op dat moment is men klaar met het assembleren. 
Indien men vervolgens toets ST van het standaardtoetsenbord indrukt 
ontstaat er een NMI die, zoals gezegd, leidt tot de terugkeer naar PME. 

En wat er dàn gebeurt is erg interessant. 

Want wàt gebeurt er? 

Alle labels worden op het tv-scherm of printerpapier afgedrukt! Dus zowel 
het labeinummer als het bijbehorende adres. Dat ziet er zò uit (een denk- 
beeldig programma met 5 labels): 

LAB $10: $4200 LAB $12: $0208 LAB $14: $929C LAB $13: $0213 
LAB $15: $422B 

PM EDITOR 

XXX ZZ ZZ ZZ 

Dit is allemaal mogelijk omdat de labels na afloop van het assembleren nog 
steeds in het geheugen staan. Drie plaatsen voor elk label en de label- 
geheugenruimte begint bij het adres ENDAD en strekt zich uit in de 
richting met afnemend adres. 

We zien dat er maximaal vier labels op een regel worden afgedrukt. De 
labels worden in een volgorde afgedrukt die overeenkomt met de volgorde 
waarin ze tijdens de eerste fase van het assembleren worden ontdekt, 
genoteerd en verwijderd. De labels worden dus afgedrukt in de volgorde 
met toenemend adres. Waarom dat zo is kunt u natrekken in hoofdstuk 9 
van boek 2, waar de assembler-software wordt besproken. In hoeverre de 
volgorde: toenemend adres overeenkomt met de volgorde: toenemend 
labeinummer hangt af van de gebruiker. Men is niet gebonden aan een 
bepaalde volgorde van labelnummers, hoewel het ter wille van de overzich- 
telijkheid aanbeveling verdient om dat wèl te doen. In het voorbeeld van 
daarnet is de labeinummervolgorde 10, 12, 14, 13, 15. Het labelnummer 
11 komt kennelijk niet voor, misschien wel omdat in het te assembleren 
programma een absoluut operandadres XX11 voorkomt (met XX hoogst- 
waarschijnlijk gelijk aan 06). 

Nadat alle labels zijn afgedrukt (in dit uitzonderingsgeval is er geen sprake 
van een scheiding tussen de rechter aktiekolom en de linker reaktiekolom) 
volgt de terugmelding “PM EDITOR”, op een nieuwe regel. Vervolgens 
wordt op wéér een nieuwe regel de eerste instruktie van het geassemb leer- 
de programma afgedrukt; het adres XXXX is dus het adres BEGAD. Na 
afloop van het assembleren en het vervolgens opsommen van alle labels is 
er dus naar de warme startingang van PME gesprongen. 


Zo, nu zijn alle toetsfunkties van PME besproken. Het is een hele waslijst 
geworden. Nu een heleboel praktijk, waarbij we van de gelegenheid gebruik 
maken om verder te gaan met iets heel nuttigs, waarmee we in hoofdstuk 
12 van boek 3 zijn begonnen. Namelijk: stoeien met PM-subroutines. 
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PME in de praktijk 
De praktijk is the proof of the pudding — of iets in díe geest 


Eerst maar eens een warming up. 


1. Acht-bits hex-decimaalomzetting 


In hoofdstuk 5 van boek 2 (pagina’s 18... 25) is een praktijkvoorbeeld 
besproken ten behoeve van het leren omgaan met de standaard-editor. Het 
ging om een programma (DISPL plus de nodige subroutines) dat de deci- 
male waarde van een acht-bits hexadecimaal getal op het display laat zien. 
Dat getal moet eerst worden opgegeven, via het indrukken van twee 
numerieke toetsen. Het programma zelf (lees: de aanpak, de oplossings- 
metode oftewel het algoritme) is indertijd niet besproken en dat doen we 
ook nu niet. Temeer daar agendapunt 2 van dit praktijkgedeelte zich bezig 
houdt met een uitgebreide versie, die wel zal worden besproken. 

Nee, het gaat ons uitsluitend om de illustratie van het verschil tussen de 
PME-gang van zaken en het toetsengebeuren bij de standaard-editor. 
Konkreet: vergelijk de listing op de pagina's 22 en 23 van boek 2 met 
tabel 3. In tabel 3 beginnen we met het opstarten van PM (terugmelding 
" JUNIOR"). Vervolgens starten we PME koud. De eerste "instruktie”’ is 
label 19. Deze wordt via de Insert-toets | opgegeven. Dat moet omdat 
anders de 77 op adres 9207 blijft staan. Voor de variabele eindadreswijzer 
maakt het niet uit of je de eerste instruktie via Input of via Insert opgeeft; 
die CEND schuift hoedanook op naar een hoger adres. Maar een program- 
ma beginnen met de “opcode'’ 77 (8208 is tevens het startadres!), dat is 
vràgen om moeilijkheden. | 

Alle volgende instrukties en labels worden via Input opgegeven: gewoon 
maar numerieke toetsen indrukken! Een stuk of wat regels verder in 
tabel 3 treft u een K aan en is de volgende instruktie via toets | opgegeven. 
Dat kwam omdat abusievelijk 85 F7 werd opgegeven, in plaats van 85 D7. 
Die fout is daarmee hersteld. 

Binnen een paar minuten zit het hele programma in het geheugen. De 
kontrole of we het goed hebben gedaan gaat nu veel sneller dan vroeger. 
Immers, in het minimum-geval (Elekterminal) kun je zestien regels in één 
oogopslag bekijken. En heb je de beschikking over een geschikte printer, 
dan is dat ''één oogopslag’’ hooguit niet van toepassing afs er sprake is van 
een listing van 1 meter lang! 

De volgende fase is het indrukken van toets X. Het programma wordt 
geassembleerd. Is dat gebeurd, dan licht het display op. We drukken daarna 
de toets ST (”STOP', “NMI') van het standaardtoetsenbord in. Met als 
gevolg dat PME alle labels ophoest en na deze hoestbui zich terugmeldt 
met “PM EDITOR” en het afdrukken van de eerste instruktie van het 
geassembleerde programma. Drie keer toets P indrukken volstaat om een 
volledige listing te maken van het geassembleerde programma. 

En met een beetje handigheid en routine is die tabel 3 binnen vijf minuten 
gemaakt. 

Alleen het van de band intezen van kant en klare programma’s gaat nog 
sneller... lees verder op pagina 32 > | 
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Tabel 3. De opgave via PME van het programma DISPL en zijn subroutines. Zie 
pagina 18... 23 van boek 2 en verder praktijkvoorbeeld 1 in de tekst. 


® 
JUNIOR 
1509 
1598 20 R 
BEGAD,ENDAD: 200, 3FF 
PM EDITOR 
0208 77 IFF 19 09 
g209 FF 10 00 A9 09 
0203 A9 49 85 F9 
0205 85 F9 85 FA 
9247 85 FA 85 FB 
9209 85 FB FF li 49 
020B FF 1ì 09 20 6F 1D 
20E 29 6F 1D 10 19 
0211 10 19 85 F9 
9213 85 F9 85 F7 
g215 85 F7 K 
9215 77 I85 D7 
0215 85 D7 20 12 99 
0217 29 12 09 4C 11 09 
B21A 4C 1l 90 FF 12 00 
O21D EF 12 JO 20 14 99 
0220 20 14 90 85 FA 
9223 85 FA 84 D7 
225 84 D7 20 14 09 
0227 20 14 09 A2 04 
022A A2 04 FF 13 09 
922C FF 13 99 JN 
022F QA CA 
9230 CA D8 13 
0231 DO 13 95 FA 
9233 45 FA 85 FA 
0235 85 FA 84 FB 
9237 84 FB 69 
0239 60 FF 14 00 
Q23A FF 14 00 Ag 09. 
023D AG 08 84 D8 
023F 84 D8 20 15 99 
9241 20 15 90 18 
9244 18 A5 D7 
9245 A5 D7 69 JA 
9247 69 GA 60 
9249 60 PF 15 09 
Q24A FF 15 09 38 
Q24D 38 A5 D7 
G24E A5 D7 E9 GA 
0258 E9 JA 85 D7 
0252 85 D7 A5 D8 NG) 
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1254 
3256 
258 
325A 
325B 
Z25E 
3261 


LAB S1g: 
LAB Sliâ4: 


69 


D8 
gg 
16 


15 
16 


9 
gg 


E9 
39 
C8 
4C 
| 
60 
X 


@ 
99 


16 


15 49 
16 9 


S@200 LAB Sil: 50208 LAB S12: $9217 LAB Sì3: 54223 
$SO22E LAB $15: $923B LAB S$16: $S924C 


PM EDITOR 


9290 
3202 
5204 
5206 
2208 
320B 
920D 
320F 
O211 
g214 
9217 
32Ì1A 
B21C 
Z21E 
9221 
9223 
3224 
9225 
2227 
2229 
022B 
g22D 
O22E 
9230 
9232 
9235 
9236 
g238 
923A 
923B 
92 3C 
g23E 
240 
0242 
9244 
9246 
248 
g249 
g24C 
G24D 


A9 
85 
85 
85 
29 
19 
85 
85 
29 
4C 
20 
85 
84 
29 
A2 
GA 
CA 
Dg 
g5 
85 
84 
69 
Ag 
84 
20 
18 
AS 
69 
60 
38 
A5 
E9 
85 
AS 
E9 
30 
C8 
4C 
69 
77 


gg 
F9 
FA 
FB 
OF 
F 3 


FC 
FA 


FB 
gg 
3B 
D7 


GA 


D7 
GA 
D7 
D8 
gg 
g4 


3B 


1D 


02 


02 


92 


02 


92 


P 
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2. Zestien-bits hex-decimaalomzetting 


Waar gaat het om? We willen een programma maken dat een opgegeven 
zestien-bits hexadecimaal getal na de afsluiting van de opgave van dat getal 
omzet en afdrukt in zijn decimale vorm. leder om te zetten hexadecimaal 
getal moet op het begin van een nieuwe regel worden opgegeven en afge- 
drukt. De afsluiting van de opgave van dat getal moet aan de junior- 
computer kenbaar worden gemaakt via het indrukken van de toets “:"’. De 
decimale waarde moet achter de dubbele punt op dezelfde regel worden 
afgedrukt. Ook getallen van 4, 8 of 12 bits (1, 2 respektievelijk 3 nume- 
rieke toetsen} moeten kunnen worden verwerkt. Drukt men (per ongeluk?) 
meer dan vier numerieke toetsen achter elkaar in, dan moet het getal, 
gevormd door de laatste vier ingedrukte toetsen, als uitgangspunt dienen. 
Ziedaar de opdracht die we in konkrete software moeten vertalen. 
Hoe pakken we dit aan? Eerst maar even een voorbeeld aan de hand van 
een doordeweeks decimaal getal. In het getal 1981 zit een bijdrage van één 
duizendtal. Trekt men van het getal twee duizend(tallen) af, dan houden 
we een negatief getal over. In het geval 1981 zitten verder bijdragen van 
negen honderdtallen, acht tientallen en één eenheid. 
Het hoogste 16-bits hexadecimale getal is $SFFFF. Dat komt overeen met 
een decimaal getal 65535. Met andere woorden: de hoogste bijdrage in de 
decimale versie van het getal wordt gevormd door de tienduizendtallen. 
Maximaal zes stuks. We stellen vast dat 
10.000;9 overeenkomt met $2710, 

1.000,90 overeenkomt met $O3E8, 

100,0 overeenkomt met $9064, en dat 
10,0 overeenkomt met $00DA. 


We gaan nu het volgende doen. Nadat een getal volledig is opgegeven 
trekken we er net zo vaak $2710 (tienduizend) van af totdat we een 
negatief getal overhouden. Is dat laatste het geval, dan tellen we er bij dat 
negatieve getal weer tienduizend op. Het aantal keren dat van het opgege- 
ven getal tienduizend is afgetrokken zonder dat het resultaat van dat 
aftrekken nog net niet negatief wordt is bijgehouden in een register (naar 
zal blijken: het Y-register) en wordt afgedrukt. Men kan beredeneren dat 
na afloop van de omschreven procedure de bijdrage van tienduizendtatlen 
in het restgetal nul is. 
Vervolgens herhalen we deze procedure, maar dan voor de duizendtallen 
en op basis van het restgetal. Van dat getal wordt net zo vaak $03E8 
afgetrokken totdat het resultaat negatief is. Het nieuwe restgetal ontstaat 
door bij dat negatieve resultaat — âls dat optreedt, want je kunt ook 
precies op nut uitkomen — $03E8 op te tellen. Op dezelfde manier wordt 
het aantal honderdtallen en tientallen bepaald en afgedrukt. Na afloop 
daarvan is er geen sprake meer van een restgetal maar van een restcijfer; de 
mogelijkheden variëren van O tot en met 9. Dit restcijfer (het aantal 
eenheden) wordt direkt, zonder rekenpartijen afgedrukt. 
Voordat we overgaan tot de bespreking van het eigenlijke programma 
waarmee een en ander zal worden gerealiseerd geven we eerst even een 
opgave van de in dat programma gebruikte PM-subroutines: 
e CRLF. Adres $11E8. Twee opeenvolgende grafische kommando's, die 
tot gevolg hebben dat er op het begin van een nieuwe regel wordt 
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begonnen. 

© RECCHA. Adres $12AE. Wacht op een ingedrukte toets en zet de 
ASCII-kode daarvan in de accu. 

© HEXNUM. Adres $126F. Verwerkt binnengekomen numerieke data. 
Na omzetting van de ASCI-kode in een datanibble wordt dit datanibble 
van rechts uit de ingangsbuffer INL ingeschoven. De buffers INH en 
INL bevatten data die overeenkomt met de meest recente vier ingedruk- 
te numerieke toetsen. Een linker nibble is altijd ‘ouder’ dan een 
rechter nibble. Indien het om niet-númerieke data # d...JenA...F 
gaat volgt de foutmelding “WHAT?”. 

e RESIN. Adres $1268. Maakt de inhoud van de buffers INL en INH nul. 

© PRNIBL. Adres $129B. Is de tweede helft van de subroutine PRBYT. 
Zorgt voor het afdrukken van het rechter datanibble van de accu- 
inhoud. 

Voor meer details verwijzen we naar hoofdstuk 14. 


Dan nu het programma. De hoofdroutine heet — heel toepasselijk — 
HEXDEC en staat in figuur 2. Eerst zorgen we voor het begin op een 
nieuwe regel (CRLF) en het wachten op een ingedrukte toets. En dan 
moet er worden gekeken of die ingedrukte toets soms de dubbele-punt- 
toets was. Zoja, dan is de opgave van het om te zetten getal kennelijk 
voltooid en kan met de eerder beschreven omzettings- en afdrukprocedure 
worden begonnen. 

Maar laten we eerst maar eens gaan kijken wat er gebeurt als er geen 
dubbele punt werd vastgesteld, maar bijvoorbeeld en hoogstwaarschijnlijk 
numerieke data. De BNE voert ons dan naar het label DATA, en naar de 
subroutine HEXNUM. Indien het geen numerieke toets was zorgt 
HEXNUM voor een foutmelding “WHAT?” en verder voor een Z-vlag nul. 
In dat geval leidt de op HEXNUM volgende BNE ons naar het label NEW: 
de inhoud van de buffers INL en INH wordt nul gemaakt en we gaan terug 
naar AF oftewel naar HEXDEC. We moeten dan opnieuw beginnen met de 
opgave van een getal. 

Is het wèl een numerieke toets, dan zorgt HEXNUM ervoor dat het met de 
toets overeenkomende datanibble het rechter datanibble van INL wordt. 
De inhoud van INH en INL is altijd zodanig dat INH van de meest recente 
vier ingedrukte numerieke toetsen de eerste twee overeenkomende data- 
nibbles bevat en INL de laatste twee. Verder is een linker datanibble altijd 
‘ouder’ dan een rechter datanibble. Niet gebruikte nibbles zijn 00. 

Laten we eens gaan kijken wat er gebeurt als er een dubbele punt is vast- 
gesteld: het programmadeel onder de linker BNE van figuur 2. Vier keer 
achter elkaar worden de geheugenplaatsen POWERL ($9000) en POWERH 
($9OG1) met data gevuld die iets te maken heeft met de vraag of we bezig 
zijn met de bepaling van het aantal tienduizendtallen, duizendtallen, 
honderdtallen danwel het aantal tientallen. Vier keer achter elkaar wordt 
er een beroep gedaan op de subroutine AMOUNT, die zorgt voor de be- 
paling van het aantal tallen, alsmede voor het afdrukken daarvan. Na vier 
keer AMOUNT zijn de aantallen -tallen bekend en afgedrukt en houden we 
het restcijfer, dus het aantal eenheden, over. Dat restcijfer staat In INL en 
wordt via de subroutine PRNIBL afgedrukt. Rest nog de sprong terug naar 
HEXDEC via NEW (buffers nul maken), voor de behandeling van een 
volgende getal. 
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Xx Fn $ 0200 

























85 
20 


reen 
TT 


A9 
85 


A9 
85 


20 
Ag 


85 
A9 


85 


2e 
eed 
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85 
20 


A5 
20 


81912 2 


Figuur 2. De hoofdroutine HEXDEC van het programma waarmee het mogelijk is om 
een opgegeven hexadecimaal getal van maximaal vier cijfers om te zetten in het 
overeenkomstige decimale getal en dat vervolgens af te drukken. 
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Xx 3a 


x 3b 


LDAZ — INL 

ADCZ — POWERL 
STAZ — INL 
LDAZ — INH 
ADCZ — POWERL 
STAZ — INH 


Y 
PRNIBL 






F8 


F8 


F9 
" 


F9 


129B 


81912 3b 


AMTEND 


CORPR 














rn 


F8 


F8 
F9 
“ 


F9 


81912 3a 


81912 3c 


Figuur 3. De subroutine AMOUNT van figuur 3a bepaalt hoe vaak een bepaalde 
macht van tien voorkomt in het opgegeven hexadecimale getal en zorgt er vervolgens 
voor dat dat aantal wordt afgedrukt. Er wordt gebruik gemaakt van de subroutines 


CORPR (figuur 3b) en SUBTRA (figuur 3c). 
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Nu meer details over de subroutine AMOUNT. Deze staat in figuur 3a. 
Deze subroutine begint met het nul maken van Y. Daarna, na het label 
AMNT, wordt de subroutine SUBTRA aangeroepen. Die subroutine staat 
in figuur 3c. Van het getal (INH, INL) wordt het getal, gevormd door de 
inhoud van (POWERH, POWERL) afgetrokken. Is het resultaat daarvan 
positief of nul, dan is de carryvlag C êen. Een negatief resultaat levert een 
carryvlag nul op. Die carry-geschiedenis is heel eenvoudig te onthouden. 
Er geldt: carry=borrow en dus borrow=carry. Als het resultaat negatief is 
moet er worden geleend. Dus is de borrow 1. Dus is de carry nul. Bij een 
resultaat groter dan of gelijk aan nul hoeft er niets te worden geleend. 
Indien het resultaat niet negatief is volgt een verhoging van Y (INY) en 
gaan we opnieuw aftrekken: de sprong terug naar AMNT. Als het resultaat 
van het aftrekken negatief is volgt de sprong naar AMTEND. De waarde 
van Y komt overeen met het aantal keren dat het getal, gevormd door de 
inhoud van (ENH, INL) is verlaagd zonder dat dit tot een negatief resultaat 
aanleiding gaf. 

De rest van AMOUNT is gauw verteld. Na het label AMTEND wordt de 
subroutine CORPR van figuur 3b afgewerkt. Eerst wordt bij het getal 
(INH, INL) het getal (POWERH, POWERL) opgeteld. Met als gevolg dat de 
inhoud van INH en INL (het restgetal) in overeenstemming is met de 
situatie bij het berekenen van het volgende aantal -tallen. Rest nog het 
kopiëren van Y in A (TYA) en de aanroep van PRNIBL: het zojuist bere- 
kende aantal -tallen wordt afgedrukt. 

We gaan de programma's van de figuren 2 en 3 aan de junior-computer 
opgeven via PME. In tabel 4 zijn al onze toetsakties en alle daarbij horende 
reakties van PME in de vorm van een ‘hard copy’ zichtbaar gemaakt. 
Achtereenvolgens worden PM opgestart, PME koud gestart en alle instruk- 
ties opgegeven; de eerste instruktie netjes volgens de regels via toets |. Na 
het indrukken van X wordt er geassembleerd. Het vervolgens indrukken 
van toets ST van het standaardtoetsenbord levert levendig drukwerk op: de 
labels worden stuk voor stuk afgedrukt, met als slotakkoord “PM EDITOR” 
plus de eerste instruktie op het adres 0200. 

We willen het programma uitvoeren. En moeten dus eerst PME verlaten 
want na die labelgeschiedenis zijn we PME binnengekomen via de warme 
startingang. Dus wat doen we? We drukken achtereenvolgens de toetsen 
RST, 1, drie keer ®, GO en RUB OUT (= RES) in: PM is opgestart. Dit is 
noodzakelijk omdat het programma HEXDEC gebruik maakt van PM- 
subroutines. De I/O moet in overeenstemming hiermee worden vastgelegd. 


Dus het opstarten via de standaard-monitor is verboden! 

Na het starten van HEXDEC is er een aantal hexadecimale getallen opgege- 
ven en, na de afsluitende dubbele punt decimaal afgedrukt. U kunt ook 
zien dat er een getal @9GPP wordt afgedrukt indien we meteen de dubbele 
punttoets indrukken. 

Kortom: het programma werkt; het doet wat het moest doen. Ter wille 
van de dokumentatie willen we wel graag weten hoe het programma er in 
geassembleerde vorm uitziet. Dus starten we PME warm. U ziet in tabel 4 
dat als startadres 153D genomen is, in plaats van 1533. Dat mag omdat het 
programmagedeelte van 1533 tot en met 153C zich bezig houdt met het 
specificeren van de BRK-sprongvektor en het resetten van de stack pointer 
(zie hoofdstuk 15). De keuze 153D in plaats van 1533 is geoorloofd omdat 
lees verder op pagina 40 
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Tabel 4. De opgave via PME van het programma HEXDEC en de bijbehorende 
subroutines. Zie verder de figuren 2 en 3 en praktijkvoorbeeld 2 in de tekst. 


SIXTEEN BIT HEXADECIMAL TO DECIMAL CONVERSION 
HEXDEC 


JUNIOR 

1599 

154d 29 R 

BEGAD,ENDAD: 200, 3FF 

PM EDITOR 

9204 77 IFF 19 99 
9209 FF 19 99 20 E8 1Ì 
9203 20 E8 11 FF ìi 99 
g206 FF ìì @9 20 AE 12 
7209 27 AE 12 C9 3A 
929C CI 3A D5 12 
929E DA 12 A9 19 
g218 A9 1} 85 JO 
0212 85 OY A9 27 
g214 A9 27 85 GÌ 
0216 85 JI 20 14 99 
9218 29 14 09 A9 E8 
921B A9 E8 85 29 
g2iD 85 9% A9 03 
G21F A9 93 85 Oi 
g221 85 O1 20 14 90 
0223 20 14 99 A9 64 
9226 A9 64 85 99 
g228 85 99 A9 07 
922A A9 DU 85 OÌ 
922C 85 O1 20 14 09 
G22E 20 14 99 A9 DA 
9231 A9 JA 85 99 
g233 85 99 A9 49 
9235 A9 BY 85 O1 
9237 85 O1 2d 14 90 
9239 20 14 GP AS F8 
923C A5 F8 23 9B 12 
G23E 29 9B 12 4C 13 OO 
g24Ì 4C 13 09 FF 12 09 
9244 FF 12 09 20 6F 12 
9247 29 6F 12 D9 13 
Q24A DO 13 4C 11 JY 
g24C 4C 1ì GH FF 13 99 
G24F FF 13 90 20 68 12 
0252 29 68 12 4C 19 99 
9255 4C 19 OO FF 14 09 
g258 FF 14 99 A9 99 
g25B AJ 9 FF 15 O9 
g25D FF 15 99 20 18 99 


0260 29 18 99 97 16 PD) 


0263 99 16 
0265 C8 

9266 4C 15 
0269 FF 16 
926C 29 17 
g26F 69 

9279 FF 17 
0273 18 

9274 A5 F8 
0276 65 OO 
0278 85 F8 
927A A5 F9 
927C 65 B1Ì 
927E 85 FO 
g28g 98 

9281 29 9B 
9284 60 

g285 FF 18 
7288 38 

0289 A5 F8 
928B E5 OY 
g28D 85 F8 
g28F A5 F9 
0291 E5 Bl 
9293 85 F9 
g295 60 

9296 77 


gg 
Ke 
9 


gg 


12 


gg 


C8 
4C 
FF 
29 
69 
PF 
18 
A5 
65 
85 
AS 
65 
85 
98 
20 
69 
FF 
38 
A5 
E5 
85 
A5 
ES 
85 
69 


X 


15 
16 
17 


17 


F8 
Og 
F8 
F9 
gl 
F9 


LAB $i9: $S0299 LAB Sìl: 
LAB $14: S924C LAB S15: 


LAB S$18: S@26D 


PM EDITOR 
9290 29 E8 
JUNIOR 


200 

0298 20 R 
FEFEFF:655 35 
FFF: 94095 
FF:49255 
F:09915 
ABCD: 43981 
10993: 04096 
T 

WHAT? 


CF16:53014 
14F8: 05 368 
17FF: 06143 
1924: 04132 
2716:14909 
Q3E8: 0100 
0564: 99100 
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ll 


12 


gg 


S0203 LAB S$S12: 
SO24E LAB $16: 


$SO23E LAB S1l3: 


S0257 LAB S$17: 


$g246 


$925B 


GIGA: 90010 
0000 


JUNIOR 


153D 


153D Ag R 
PM EDITOR 


0200 
9293 
9206 
9208 
g2A 
g29C 
G2GE 
0210 
0212 
9215 
9217 
g219 
G21B 
G21D 
9229 
9222 
9224 
9226 
g228 
922B 
g22D 
g22rF 
g231 
9233 
g236 
0238 
9238 
923E 
g241 
9243 
9246 
9249 
g24C 
Q24E 
9251 
0253 
9254 
9257 
925A 
g25B 
g25C 
g25E 
9268 
2262 


29 
29 
C9 
Dg 
A9 
85 
A9 
85 
29 
A9 
85 
A9 
85 
20 
A9 
85 
A9 
85 
20 
A9 
85 
A9 
85 
20 
A5 
29 
4C 
20 
Dg 
4C 
29 
4C 
Ag 
29 
9g 
C8 
4C 
20 
69 
18 
A5 
65 
85 
A5 


E8 
AE 
3À 
34 
19 
gg 
27 
gl 
4C 
E8 
gg 
93 
OÌ 
4C 
64 
9 
9g 
gì 
4C 
GA 
gg 
99 
01 
4C 
F8 
9B 
46 
GF 
93 
g3 
68 
gg 
gg 
6D 
g4 


4E 
5B 


F8 
gg 
F8 
F9 


iÌ 
12 


92 


02 


92 


g2 
12 
12 
92 
12 
92 
92 


g2 
02 


9264 
9266 
g268 
9269 
B26C 
g26D 
926E 
g27 
9272 
9274 
9276 
4278 
927A 
g27B 


65 
85 
98 
20 
69 
38 
A5 
E5 
85 
A5 
E5 
85 
69 
77 


O1 
F9 


9B 
F8 
gg 
F9 


Gi 
F9 


12 
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we tòch niet van plan zijn om de BRK-toets te gebruiken (zouden we dat 
wèl hebben gedaan dan volgt “JUNIOR”, oftewel terug naar PM). Zoals 
ook blijkt uit het laatste gedeelte van tabel 4, waar het gaat om een listing 
van HEXDEC plus subroutines in de vorm van drie volledige en één onvol- 
ledig afgedrukte instruktieblokken van 16 instrukties. 


3. Decimaal optellen 


Ons volgende praktijkvoorbeeld betreft een programma waarvan het 
praktisch nut afhangt van de vraag of u al een zakrekenmachientje 
(‘japannertje”') in huis hebt of niet. Want met zo'n ding gaat de door ons 
beoogde opteloperatie nog veel sneller in zijn werk en bovendien is het 
repertoire aan andere rekenkundige kunsten niet te verwaarlozen. Maar bij 
ons, hier en nu, ligt de nadruk op het leren omgaan met PM-subroutines en 
met PME. 
Er moet een programma worden gemaakt dat het volgende doet: Ga uit 
van een decimaal getal van zes cijfers dat door de gebruiker is opgegeven, 
of van een decimaal getal van maximaal acht cijfers dat het resultaat is van 
vroegere optellingen (het zogenaamde cumulatieve getal). Bij eén van die 
twee getallen (welke, dat wordt automatisch geregeld) wordt een derde 
decimaal getal opgeteld dat door de gebruiker wordt opgegeven. Met als 
gevolg dat er een (nieuw) cumulatief getal ontstaat waarbij men vervolgens 
weéer een getal kan optellen, enzovoorts. 
Het eerste getal (van zes cijfers) wordt door de gebruiker opgegeven door 
het indrukken van maximaal zes numerieke toetsen 0... 9, gevolgd door 
het indrukken van de punttoets '"…”. Vervolgens geeft de gebruiker een 
getal van maximaal zes cijfers op dat daarbij moet worden opgeteld. De 
gang van zaken is: eerst dat getal intoetsen en dan de toets "P“ (van plus) 
indrukken. We hebben voor “P' in plaats van “+” gekozen omdat in het 
laatste geval telkens de Shifttoets moet worden ingedrukt. Dat vinden we 
lastig. Het indrukken van alle toetsen die afwijken van ".”',“P" en 0...9, 
dus óók de hexadecimale numerieke toetsen A... F, heeft de bekende 
foutmelding '’WHAT?” tot gevolg. 
De praktijk ziet er zo uit: 
123456. 

123456 
654321P 
+ 654321 
=06777777 
iP 
+ 690901 
=06777778 
De reaktie van de junior-computer is vet gedrukt; onze toetsakties zijn in 
een normaal lettertype weergegeven. Ze zien onze toetsakties overigens 
niet in dezelfde vorm terug. Een regel die wordt afgesloten met of “P” 
wordt namelijk overschreven door de eerstvolgende “'reaktieregel”” van de 
computer. Dit houdt in dat dit programma niet of hooguit met konsessies 
op een papierprinter kan worden afgedraaid omdat er dan twee regels over 
elkaar worden afgedrukt. Bij een video terminal zoals de Elekterminal is 
dit geen probleem. Bij een papierprinter kan men de hardware-echo — die 
ervoor zorgt dat een door de gebruiker ingedrukte toets wordt afgedrukt — 
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uitschakelen. Dat gaat via het in de stand “full duplex’ zetten van de 

“half/full duplex’-schakelaar die doorgaans op randapparatuur aanwezig 

is. Door het “overschrijven” van de gebruikersregels ontstaat een over- 

zichtelijk geheel, met de diverse getallen netjes onder elkaar, zoals we dat 
vroeger op de lagere school moesten doen. 

Het programma heet DECADD en staat in figuur 4. In dit programma en in 

de bijbehorende subroutines komen allerlei geheugenplaatsen voor, die we 

allereerst zullen bespreken. 

INL adres $00F8 opgave getal 10° en 10! 

INH adres $00F9 opgave getal 102 en 10° 

POINTL adres $0PFA opgave getal 10° en 10° 

DECA adres$OODE cumulatief getal 10° en 10! 

DECB adres $@ODF cumulatief getal 10% en 10° 

DECC adres $ÓPEG cumulatief getal 10* en 105 

POINTH adres $09FB cumulatief getal 10° en 107 

De maximale hoogte van het cumulatief getal, dus van de optelling, be- 

draagt derhalve 99.999.999. 

In DECADD plus de bijbehorende subroutines worden de volgende PM- 

subroutines gebruikt: 

e CRLF,RECCHA: zie praktijkvoorbeeld 2. 

@ PRCHA. Adres $1334. Drukt een karakter af of verzorgt een grafisch 
kommando waarvan de ASCIl-kode in de accu staat. 

@ PRSP. Adres $11F3. Drukt een spatie af. 

e PRBYT. Adres $128F. Drukt achtereenvolgens het linker en het rechter 
nibble van de accu-inhoud af. Dit na omzetting van de nibbles in de 
bijbehorende ASCII-kode. 

e MESSY. Adres $11D6. Zorgt voor het afdrukken van tekst, die uit een 
look up-tabel afkomstig is. Welke tekst? Dat hangt af van de begin- 
waarde van Y en van de positie van het EOT-teken $93 in de look 
up-tabel. 

Ook nu verwijzen we u voor meer details naar hoofdstuk 14. 


Het programma DECADD (figuur 4) begint met het nul maken van de drie 
buffers voor de opgave van een getal. Verder wordt er begonnen op een 
nieuwe regel (CRLF). En dan wacht het programma op een ingedrukte 
toets (RECCHA). De toetsen ".”,P en O...9 hebben iets te betekenen 
voor het programma; alle andere toetsen spelen geen enkele rol. 

Stel dat er een toets is ingedrukt en dat het niet ".” is en ook niet P. In 
DECADD komen we dan bij het label DATA terecht en daarmee bij de 
subroutine DECNUM. Dat is het decimale broertje van HEXNUM. Nu 
worden uitsluitend de toetsen 0 ...9 tot geldige data verwerkt. In alle 
andere gevallen volgt de terugmelding “WHAT?” en wordt de Z-vlag nul 
gemaakt. Een ingedrukte toets 0... 9 wordt tot een nibble verwerkt dat 
van rechts uit buffer INL wordt ingeschoven, met als gevolg dat alle 
bestaande nibbles in de drie getalbuffers een plaatsje naar links opschuiven. 
De inhoud van POINTL, INH en INL bevat dus de data die overeenkomt 
met de zes meest recente ingedrukte toetsen. Een linker nibble is altijd 
‘ouder’ dan een rechter nibble. Het oorspronkelijke linker nibble van 
POINTL gaat verloren. Zijn er minder dan zes meest recente toetsen 
O...9, dus is er een getal van minder dan zes cijfers opgegeven, dan zijn 
de nog niet gebruikte nibbles van de buffers nul. Na afloop van DECNUM 
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me 
mm 
EET en 


11E8 


PLUS 


CMP # 5Ĳ 


STAZ — DETA 












) 


ja 






Q 
ul 
a 


LDAZ — DECA DE 
ADCZ — INL F8 








1334 "CR" 


1163"U" STAZ — DECA DE 


nrs LDAZ — DECB oF 


F3" LU” 
STAZ — DECB DF 
LDAZ-—-DECC JES 


ADCZ — POINTL FA 


STAZ — DECC Es 


LDAZ — POINTH FB 
ADC # 08 


STAZ — POINTH FB 


LDA # 3D "a" 
1334 +. z°* 
LDAZ — POINTH | FB 


PRAYT 128F 


a 
e 
u 


5) 


81912 4 
JMP — DECADD (99) 


Figuur 4. De hoofdroutine DECADD van het programma waarmee men een decimaal 
getal van maximaal 6 cijfers kan optellen bij een ander decimaal getal van acht cijfers: 
het zogenaamde cumulatieve getal. | 
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bepaalt de Z-vlag of we opnieuw beginnen (na een ontdekte foute toets), 
of dat we op een eventuele volgende numerieke toets moeten wachten; de 
sprong naar het label NEXT. 

Wat gebeurt er nadat de plustoets is ingedrukt, dus nadat de opgave van 
een getal is voltooid? We beginnen dan met een schone lei: de buffer 
POINTH — bestemd voor het gevolg van het uitstijgen van de optelsom 
(= cumulatief getal} boven 999.999 — wordt nul gemaakt. En dan wordt 
de inhoud van de getalbuffers gekopieerd in de buffers die bestemd zijn 
voor het onthouden van het cumulatieve getal. Dat wil zeggen: in drie van 
de vier buffers, want POINT blijft buiten schot. 

Dan volgt een aantal grafische aktiviteiten. Drukwerk! Eerst wordt het 
CR-kommando uitgevoerd: ga terug naar het begin van dezelfde regel. Dan 
volgen drie spaties (drie keer achter elkaar PRSP) en krijgt SHOW werk te 
doen: het zojuist opgegeven getal wordt afgedrukt. Daarna gaan we terug 
naar DECADD, met een schone lei en beginnend op een nog schone 
volgende regel. 

De subroutine SHOW staat in figuur ba en omvat drie laadoperaties en drie 
aanroepen van PRBYT. Heel simpel. 

Nu gaan we eens kijken wat er gebeurt als toets P is ingedrukt. Dat wil 
zeggen: er is een getal opgegeven dat bij het nu te wijzigen cumulatieve 
getal moet worden opgeteld. Het begint met de subroutine SHOWA. Laten 
we die maar meteen meepakken. Hij is te vinden in figuur 5b. Ook deze 


% Sb 
LDA #6D “CR” 
“CR” 1334 
« Sa Ee 
+ 
war 1334 
"U 11F3 
1" 11F3 
LDAZ — POINTL FA 
A5 Ee PRBYT 128F 
is 128F _LDAZ — INH FS 
A5 DEF PRBYT 128F 
24 128F LDAZ — INL F8 
A5 DE ___PRBYT 128F 
26 128F CRLF 11E8 
69 





81912 ba 





81912 Sb 


Figuur 5. De subroutine SHOW (figuur 5a) van DECADD (figuur 4) zorgt voor het 
afdrukken van de rechter zes cijfers van het cumulatieve getal. De subroutine SHOWA 
van DECADD staat in figuur bb. Hij zorgt voor het afdrukken van “+ xxxxxx””, 
waarbij “xxxxxx”” het getal is dat bij het cumulatieve getal moet worden opgeteld, 
met als gevolg een nieuw cumulatief getal. 
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Xx Ga 









NOTVAL 


LDY #46 
MESSY 


CRLF 


LDY #FF 





11D6 


1158 






ASL2Z — INL 
ROLZ — INH 
ROLZ — POINTL 


81912 Ga 


subroutine is één en al drukwerk. Vanaf het begin van dezelfde regel 
worden achtereenvolgens afgedrukt: een “+”, twee spaties plus het getal 
dat men zojuist heeft opgegeven plus het begin op een nieuwe regel. Dit 
getal moet worden opgeteld bij het cumulatieve getal en het resultaat van 
de optelling doet vervolgens dienst als nieuw cumulatief getal. De toestand 
van de carryvlag bepaalt (ADC #90) of de inhoud van de overloopbuffer 
POINTH zich wijzigt of niet. De optelling vindt decimaal plaats; aan het 
begin van de optelling zien we de instruktie SED en direkt na afloop van 
het optellen schakelen we terug (CLD). Dit is nodig omdat een aantal 
subroutines van PM niet korrekt wordt uitgevoerd als ze met een D-vlag 1 
worden doorlopen. In hoofdstuk 12 van boek 3 hebben we het uitgebreid 
over deze kwestie gehad. 

Na de optelling wordt op de volgende regel een ''=" afgedrukt. Dan wordt 
de inhoud van POINTH afgedrukt en tenslotte zorgt SHOW voor het 
afdrukken van de inhoud van de overige drie buffers voor het cumulatieve 
getal. Rest nog de sprong naar DECADD en klaar is Kees. 

Dan de subroutine DECNUM. Hij staat in figuur Ga. Het begint al meteen 
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= @ 





NOTVAT N=6;Z=6 


Af 


LDY # FF 


68 
81912 6h 


Figuur 6. De subroutines DECNUM (figuur 6a) en ASCDEC (figuur 6b) van 
DECADD (figuur 4) en van DECHEX (figuur 7) zorgen voor de verwerking van de 
geldige decimale numerieke data 0... 9 (dus niet A... F!) in de getalbuffers 
POINTL, INH en INL. 


goed met de aanroep van weer een andere subroutine, namelijk ASCDEC. 
Deze staat in figuur 6b. De ASCII-kode van de ingedrukte toets staat in de 
accu. Voor de toetsen 0...9 gelden de ASCll-kodes 3... 39. Het 
resultaat van ASCDEC is dat voor een ongeldige toets de N-vlag 1 is en dus 
de Z-vlag nul. Voor een geldige toets O...9 (label VALID) wordt via de 
operatie AND #@DF de ASCIl-kode 30... 39 omgezet in een datanibble 
gd... g9. 
Terug naar DECNUM. De BMI na ASCDEC voert ons voor een ongeldige 
toets naar het label NOTVAL. Na het afdrukken van de boodschap 
"WHAT?" (MESSY, met Y=46, zie hoofdstuk 14} wordt de N-vlag 1 
gemaakt. Dus de Z-vlag is dan nul. Een geldige toets wordt verwerkt in de 
inhoud van INL, INH en POINTL. Alla datanibbles schuiven een plaatsje 
naar links op en op de vrijgekomen plaats komt het datanibble dat over- 
eenkomt met de ingedrukte toets (ORAZ-INL plus STAZ-INL). Tot slot 
wordt de Z-vlag één gemaakt. Daardoor is de N-vlag nul geworden. We 
gaan DECADD en zijn subroutines editen en vervolgens assembleren. Hoe 
dat precies in zijn werk gaat kunt u zien in tabel 5. Na het opstarten van 
lees verder op pagina 50 
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Tabel 5. De opgave via PME van het programma DECADD en de bijbehorende 
subroutines. Zie verder de figuren 4, 5 en 6 en verder praktijkvoorbeeld 3 in de tekst. 


SIX DIGIT DECIMAL ADDITION 
UP TO 99,999,999 


DECADD 

JUNIOR 

1599 

1548 29 R 

BEGAD,ENDAD: 290, 3FF 

PM EDITOR 

g299 77 IFF 99 GO 
g20g FF 99 BO A9 9 
92793 A9 OY 85 F8 
g205 85 F8 85 F9 
4247 85 FO 85 FA 
g239 85 FA 20 E8 11 
024B 20 E88 11 FF 98 99 
G29E FF 98 09 20 AE 12 
B211 29 AE 12 CI 2E 
g214 C9 2E De 97 
4216 DA 97 A9 dg 
7218 A9 09 85 FB 
G2iA 85 FB AS F8 
g21C A5 F8 85 DE 
G21E 85 DE A5 F9 
g22g A5 F9 85 DF 
q222 85 DF A5 FA 
G224 AS FA 85 EQ 
g226 85 EQ A9 gD 
g228 A9 AD 20 34 13 
G22A 20 34 13 20 F3 11 
g22D 29 F3 11 29 F3 Ìì 
4239 29 F3 11 20 F3 ìil 
4233 20 F3 11 23 95 A9 
0236 20 95 GO 4C 99 99 
g239 4C 99 99 FF 97 09 
Q23C FF 97 QY C9 50 
G23F C9 59 Dg 96 
g24l DO 96 23 94 99 
g243 29 94 99 F8 

„246 FB 18 

g247 18 A5 DE 
9248 A5 DE 65 F8 
G24A 65 F8 85 DE 
g24C 85 DE A5 DF 
G24E A5 DF 65 F9 
9250 65 F9 85 DF 
0252 85 DF AS EQ 
g254 A5 Eg 65 FA 
9256 65 FA 85 EQ D) 
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9258 
G25A 
925C 
A25E 
9269 
9261 
9263 
9266 
9268 
g26B 
026E 
0271 
0274 
9277 
„279 
927B 
Q27E 
9280 
9283 
4285 
0288 
928A 
g28D 
928E 
G291 
9293 
9296 
9298 
929B 
Q2IE 
G2AÌ 
G2A3 
Z2A6 
92A8 
Z2AB 
G2AD 
G2B 
G2B 3 
9284 
g2B7 
Q2BA 
A2BC 
Q2BE 
92CIÌ 
g2C3 
g2C5 
927 
g2C8 
Z2CA 
g2CCe 
G2CE 
9209 


13 
12 
gg 
9 
gg 
gg 
12 
12 
12 
vR 
15 
Ì 3 
li 
12 
12 


12 
1d 


gg 
9 


Gj 


gg 
E2 
12 
12 
gg 
1 
13 
ii 
dl 
12 
12 


12 
1Ì 


0 
og 


gg 


09 
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B2D1 
g2D4 
g2D6 
g2D9 
B2DC 
G2DE 
G2DF 
O2E2 
G2E4 
G2E6 
92E8 


GQ2EA 


G2ED 
G2EF 
g2Fg 
g2F 3 
g2F5 
g2F6 


LAB S$99: 
LAB S95: 
LAB S$O9l: 


771 


gg 
1ì 
1 


97 


97 


gg 


1Ì 
11 


gg 


gg 


gg 


X 
54200 LAB $98: $020B LAB S$97: $7236 LAB $96: $U268 
SQ26F LAB $94: 
S72B9 LAB 599: 


PM EDITOR 


g200 
9202 
9204 
9206 
0208 
g23B 
N2GE 
9219 
0212 
g214 
9216 
0218 
G21A 
g21C 
O21E 
9220 
0222 
9224 
9227 
Z22A 
9220 
0230 
0233 
g236 
g238 
g23A 
g23D 
923E 
g23F 
9241 
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A9 
85 
85 
85 
20 
20 
C9 
Dg 
A9 
85 
A5 
85 
A5 
85 
A5 
85 
A9 
20 
29 
29 
20 
29 
4C 
C9 
D9 
29 
F8 
18 
A5 
65 


gg 


El 
12 


13 
ÌÌ 
1Ì 
1À 
g2 
g2 


g2 


P 


$Q27F LAB $93: 
S72C4 LAB $89: 


SG2A2 LAB S$92: 
SG2CC LAB S88: 


SG2A9 
SY2CF 


9243 
9245 
g247 
9249 
024B 
g24D 
g24r 
G251 
0253 
9255 
9257 
0258 
g25A 
g25D 
g25F 
9262 
9265 
g268 
g26B 
g26D 
g26F 
9271 
g274 
9276 
9279 
g27B 
827E 
Q27F 
9281 
9284 
0286 
g289 
g28C 
g28F 
0291 
g294 
9296 
g299 
029B 
92E 
G2AÌ 
G2A2 
g2A5 
G2A7 
Q2A9 
J2AB 
G2AD 
Q2AF 
289 
G2B2 
g2B4 
9286 


B5 
A5 
65 
85 
A5 
65 
85 
A5 
69 
85 
D8 


A9 . 


20 
A5 
20 
29 
4C 
29 
Dg 
FG 
A5 
20 
A5 
20 
AS 
20 
69 
A9 
20 
A9 
20 
29 
20 
A5 


A5 
29 
AS 


20 
60 
20 
30 
A2 
g6 
26 
26 
CA 
Dg 
95 
85 
Ag 


13 
12 
92 


92 
g2 


12 


12 
12 


13 
13 
ÌÌ 
1Ì 
12 
12 


12 


92 


2258 
g2B9 
Q2BB 
G2BE 
02C1 
92C3 
g2C4 
g2C6 
g2Cg 
92CA 
g2CC 
G2CE 
G2CF 
02D1 
02D2 


69 


20 
29 
Ag 
69 
C9 
39 
C9 
30 
Ag 
69 
29 
69 
77 


46 
D6 
E8 
FF 


30 
3A 
93 
FF 


gE 


1ì 
ii 
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PM (terugmelding JUNIOR") en na de koude start van PME worden alle 
instrukties opgegeven. De eerste instruktie via de I-toets. Na het indrukken 
van X wordt het programma geassembleerd. Na het indrukken van toets ST 
van het standaardtoetsenbord volgt het afdrukken van alle labels en de 
sprong naar de warme startingang van PME. Het programma in zijn ge- 
assembleerde vorm wordt gelist via het een aantal keren indrukken van 
toets P. 

Omdat een gebruikersregel zoals eerder opgemerkt wordt overschreven 
door de eerste reaktieregel van de junior-computer hebben we in tabel 5 
geen gebruiksvoorbeelden van DECADD gegeven. Het is overigens mogelijk 
om de gebruikersregels te laten staan door op twee plaatsen in het pro- 
gramma de instrukties die zorgen voor het “afdrukken” van een CR te 
vervangen door JSR-CRLF. Het is een goede oefening voor u om te weten 
waar dat is en om de wijzigingen aan te brengen via PME in het nog niet 
geassembleerde programma. U kunt dat doen via de in praktijkvoorbeeld 
5 behandelde procedure. Zie verderop in dit hoofdstuk. 


4. Van decimaal naar hexadecimaal 


Als het mogelijk is om een programma HEXDEC te maken (zie figuur 2 en 
praktijkvoorbeeld 2), dan moet een programma DECHEX toch ook tot de 
mogelijkheden behoren. Een programma dus dat een opgegeven decimaal 
getal in het met dat getal overeenkomende hexadecimale getal omzet en 
vervolgens afdrukt. Dat is inderdaad mogelijk, getuige het programma 
DECHEX van figuur 7. Een snelle blik op die figuur 7 leert ons dat de 
overeenkomst met figuur 2 groot is. U ziet tevens dat voor de opgave van 
een getal (label DATA in figuur 7) gebruik wordt gemaakt van de sub- 
routine DECNUM (zie ook figuur 6a). Dat betekent dat er drie getalbuffers 
beschikbaar zijn. Als we dat willen kunnen we dus een decimaal getal van 
maximaal zes cijfers opgeven. | 

Maar dat willen we niet. We zijn slechts geïnteresseerd in getallen van 
65535 ($SFFFF) en lager. Dit omdat hexadecimale getallen die langer zijn 
dan 16 bits (65536 en hoger) geen enkele praktische betekenis hebben in 
het microprocessor-gebeuren. 

Zoals al opgemerkt lijkt DECHEX als twee druppels water op HEXDEG. 
We moeten achtereenvolgens vaststellen (subroutine AMOUNT) hoeveel 
keer het getal 4096 (16° oftewel $1000) in het opgegeven decimale getal 
voorkomt. En vervolgens hoeveel keer het getal 256 (16% oftewel $109) 
voorkomt. En vervolgens hoeveel keer het getal 16 (16! oftewel $19) 
_ voorkomt. En tenslotte moet het programma DECHEX nagaan hoeveel 
eenheden 16° ($1) er in het opgegeven decimaal getal zitten. 

Voor opgegeven decimale getallen 265536 (16° = $10000) gaat het fout 
met DECHEX omdat er dan geen aantallen 65536 worden vastgesteld (dat 
zou hoogstens een aantal van één opleveren omdat er in principe een 
decimaal getal van maximaal 999.999 kan worden opgegeven); in plaats 
daarvan komt er een aantal bijdragen 4096 uit de bus dat groter is dan 15 
($F). Ondanks deze waarschuwing is er in DECHEX een maatregel geno- 
men om de schade aan afgedrukte onzin (let wel: in het geval van een 
opgegeven getal >65536!) te beperken. Het linker nibble van de buffer 
POINTL bevat het aantal honderdduizendtallen van het opgegeven deci- 
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85 
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A9 
85 


A9 
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20 


A9 
85 
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Ag 
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$0209 


CRLF 


CMP # 3A 


LDA # 96 


LDA #49 
STAZ-POWERH 
AMOUNT 
LDA # 56 
STAZ-POWERL 
LDA # #2 
STAZ-POWERH 
AMOUNT 
LDA # 16 
STAZ-POWERL 
LDA # 68 
STAZ-POWERH 
AMOUNT 
LDA # B1 
STAZ-POWERL 
AMOUNT 


zohtnnEnstnchEnn 
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(14) 16% 


ei 


(ò)re? 


81 


fel: 


DATA 


26 


nee 

oe 15) | 
ja 
A5 LDAZ-POINTL FA 


CT 
[en _|© 
„en 1 
[eee |@ 
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Figuur 7. De hoofdroutine DECHEX van het programma waarmee een opgegeven 
decimaal getal dat kleiner is dan of gelijk is aan 65535 ($FFFF) wordt omgezet in het 
overeenkomstige hexadecimale getal, en vervolgens afgedrukt. De overeenkomst met 
figuur 2 (HEXDEC) is groot. Voor de subroutines DECNUM en ASCHEX: zie figuur 
Ga en 6b. De subroutine AMOUNT vindt men in figuur 3a. De subroutines CORPR en 
SUBTRA moeten echter worden aangepast; zie figuur 8. 
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male getal. Het rechter nibble van POINT L bevat het aantal tienduizend- 
tallen. Door nu na het indrukken van eén toets 0...9 (label DATA) de 
inhoud van POINTL te maskeren met @7 (AND #07) wordt ervoor 
gezorgd dat het door DECHEX te verwerken decimale getal (na het in- 
drukken van toest '':”’) geen honderdduizendtallen bevat en dat het aantal 
tienduizendtalien nooit hoger wordt dan 7. 

De in DECHEX vier keer gebruikte subroutine AMOUNT kan hier onge- 
wijzigd worden gebruikt. We verwijzen u dan ook voor AMOUNT naar 
figuur 3a. Echter, de in AMOUNT aangeroepen subroutines CORPR en 
SUBTRA moeten wèl worden aangepast aan hun taak in DECHEX. Van- 
daar dat u deze in gewijzigde vorm terugziet in de figuren 8a en 8b. Waar- 
om die wijzigingen? Wel, er moet nu decimaal worden opgeteld (CORPR) 
en afgetrokken (SUBTRA). Verder moet de inhoud van POINTL ook 
worden aangepast, afhankelijk van de toestand van de carryvlag 
(ADC # 99 in CORPR; SBC # BP in SUBTRA). 

De praktijk van het editen en assembleren van DECHEX vindt u in tabel 6 
Lees verder op pagina 5/ 


Xx 3a Xx Sb 
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A5 Fa A5 LDAZ — INL F8 
65 | Apcz-rowen, | % E5 SBCZ — POWERL | 88 
86 STAZ — INL Fe 85 STAZ — INL F8 
A5 LDAZ — INH F9 A5 F9 
65 | ADCZ-POWERH | #1 ES SBCZ — POWERH | #1 


STAZ — INH F9 85 STAZ — INH 


_ LDAZ — POINTL FA A5 LDAZ — POINTL 





ADC #06 E9 SBC # 49 


STAZ — POINTL FA 85 


CLD 


STAZ — POINTL j FA 
CLD 


á 
iĳ 
: 


PRNIBL 1298 


6e 


60 RTS 


81912 82 81912 8b 


Figuur 8. Ten opzichte van figuur 3b respektievelijk figuur 3c zijn de subroutines 
CORPR en SUBTRA in die zin aangepast aan het gebruik bij DECHEX, dat er 
decimaal wordt gerekend en dat nu ook de inhoud van de getalbuffer POINT L moet 
worden aangepast. 
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Tabel 6. De opgave via PME van het programma DECH EX en de bijbehorende 


subroutines. Zie verder de figuren 8, 3a, 8a, 8b, Ga en 6b en verder praktijkvoorbeeld 


4 in de tekst. 


JUNIOR 


1500 


1503 29 R 
BEGAD, ENDAD: 
PM EDITOR 


9299 
0209 
n203 
A206 
9209 
920C 
,2GE 
G2id 
9212 
9214 
g216 
7218 
0218 
Z21iD 
g2iF 
0221 
0223 
7226 
9228 
922A 
g22C 
G22E 
9231 
0233 
9235 
0238 
523B 
G23E 
9241 
9243 
5245 
9247 
„249 
g24C 
O24F 
9252 
9255 
2258 
A25A 
225D 
9259 
9262 


77 
FF 


1d 
E8 
kk 
AE 
3ÀÄ 
hd 
965 
Ög 
40 
Ai 
14 
56 
5 
q2 
Zi 
i4 
16 
9 
ng 
01 
14 
01 
5 
4 
13 
12 
93 
19 
FA 
q7 
FA 
ak 
13 
68 
iQ 
4 
7 
15 
i8 
18 


HQ 
NSS 


7 


0 


99 


99 


9 
09 


209, 3FF 


IFF i9 99 


20 
FF 
20 
C9 
Dg 
A9 
85 
A9 
85 
29 


O 


E8 
ik 
AE 


EE 
07 
12 


99 


99 


gg 


ng 
09 
q07 
gg 


09 
09 


he 


00 
55 


09 
09 


09 
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A263 
9266 
7269 
926C 
926D 
9270 
027i 
272 
#274 
9276 
9278 
027A 
B27C 
G27E 
9289 
g282 
0284 
7285 
286 
2289 
928A 
A28D 
A2BE 
028F 
A29 
0293 
5295 
g297 
4299 
329B 
A2 
A29F 


O2AL 
Z2A2 


G2A 3 
A2A6 
G2A9 
92AB 
G2AD 
0289 
9282 
O2B4 
0286 
G2B7 
A2B9 
02B8B 
A2BD 
Z2BF 
920 
02C3 
B2C5 
92C8 
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F8 


F8 
F9 


F9 
FA 
99 
FA 


9B 


18 


F8 
9 
F8 
F9 
Di 
F9 


gg 
FA 


9 
9 
Ag 


07 


12 


90 


dg 
90 


U 


| nl 
br 


ls 
F- 


99 
00 


9 


12 


0g 


99 
5 


Og 


Z2CB AJ FF 60 

B2CD 60 FF 94 00 
G2CE FF 99 09 C9 39 
O2Di CI JP 39 89 
G2D3 39 89 CO 3A 
2D5- C3 JA 37 88 | 
32D7 34 28 FF 89 99 
g2D9 FF 89 99 A4 FF 
B2DC AJ FF 50 

P2DE 64 FF 88 90 
G2DF FF 883 40 29 JF 
D2E2 29 OF 69 

J2EA4 60 


A2E5 77 
LAB S10: $S0294 LAB 


X 
$ S203 LAB S$12: SQ235 LAB S13: $S0243 
LAB $14: $9249 LAB Si 
5 
S 


de 
15: $O24B LAB $i6: SJ254 LAB $17: $0258 
93: $SQ288 LAB S92: $928F LAB S91l: $SO29F 
89: S42B2 LAB S88: SO2B5 


LAB $18: S0272 LAB 
LAB S$9@: SG2AA LAB 
PM EDITOR 

0200 20 ES il p 
0203 29 AE 12 

D206 CO 3A 

0208 DI 23 

A2DA A9 96 

B2PC 85 BO 

O29E A9 49 

9219 85 O1 

9212 20 49 92 

A215 A9 56 

0217 85 0 

A2i9 A9 2 

D21B 85 O1 

B21D 29 49 92 

0220 A9 1 

0222 85 A9 P 
7224 A9 09 

B226 85 O1 

0228 240 49 32 

022B A9 01 

B22D 85 99 

B22F 20 49 32 

0232 4C 43 G2 

0235 20 88 42 

0238 DA 79 

J23A A5 FA 

B23C 29 37 

J23E 85 FA 

0240 4C B3 02 

B243 28 68 1 

B246 4C 03 2 P 
0249 AB O4 

B24B 23 72 02 =p) 
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O24E 
1259 
251 
1254 
3257 
2258 
0259 
Z25A 
925C 
Z25E 
H269 
9262 
2264 
9266 
9268 
Z26A 
A26C 
926D 
B26E 
0271 
9272 
3273 
0274 
7276 
9278 
B27A 
827C 
927E 
289 
9282 
0284 
9286 


Z287. 


0288 
928B 
928D 
928F 


g29l 


9293 
9295 
9296 
0298 
029A 
g29C 
Q2IE 
g2orF 
A2AL 
Z2AÁ 
G2A7 
Q2A9 
J2AA 
B2AC 


56 


AA 
12 
g4 
F8 
F9 
FA 


F/ 


F8 
93 


46 
D6 
E8 
FF 


3 
g4 


92 
92 


dd 


G2 


© 
Y2AE C9 3A 
G2B 39 A3 
92B2 AJ FF 
O2B4 69 
02B5 29 JF 
g2B7 69 
Q2B8: 77 
JUNIOR 


299 

A28 23 R 
4996: 1990 
256:0199 
8192: 20090 
65535: FFFF 
18509: 2719 
1998: 93E8 
„98; 

WHAT? 


198:9964 
4995: 0GFFF 
255: 0EFF 
15:09 4F 
12345: 3939 


Achtereenvolgens worden opgegeven: 

DECHEX ; labels 10... 13 (figuur 7) 

AMOUNT; labels 14... 16 (figuur Sa) 

CORPR ; label 17 (figuur 8a) 

SUBTRA ; label 18 (figuur 8b) 

DECNUM ; labels 93... 91 (figuur 6a) 

ASCDEC ; labels 99... 88 (figuur 6b) 

De verdere gang van zaken .is u inmiddels vertrouwd: assembleren (X), 
terug naar PME (ST) via het afdrukken van de labels, het geassembleerde 
programma afdrukken (P's) en het programma starten na de terugkeer in 
PM. En tot slot het programma DECHEX uitvoeren. Zo lang als men wil. 
Genoeg geDECHEXt? Drukt dan RST in en kom eventueel terug via het 
starten van PM. 


5. Warme CEND-start 
PME en de cassette-band 


In hoofdstuk 11 van boek 2 hebben we het gehad over de mogelijkheid om 
met behulp van TM een nog niet geassembleerd programma op de band te 
zetten alvorens het te assembleren en uit te proberen. Vooral bij grote 
programma's is het dan weinig werk — als blijkt dat er nog aan dat pro- 
gramma moet worden gesleuteld — het programma in zijn ongeassembleer- 
de vorm van de band terug te lezen en om vervolgens via een warme 
CEND-start de toestand te herstellen zoals die was vlak voordat indertijd 
dat programma op de band werd gezet. Vervolgens kan men dan het eigen- 
lijke sleutelwerk (‘debuggen’) uitvoeren en de beschreven procedure 
herhalen, net zo vaak als dat nodig is. Of juister: nodig blijkt. 

We willen de te volgen procedures behandelen aan de hand van een piep- 
klein voorbeeldprogrammaatje. Het is het programma ASCII van hoofd- 
stuk 12 van boek 3. Zie figuur 9. Dit programma is zo klein dat het eigen- 
lijk niet hoeft te worden geedit en ook niet hoeft te worden geassembleerd. 
Het label 19 is namelijk bekend; het is gelijk aan het startadres BEGAD! 
Desondanks hebben we dit korte programma genomen omdat het u en ons 
meterslange listings (hard copy) bespaart. En een goed overzicht is ook wat 
waard. En bovendien: het gaat erom dat u leert omgaan met een bepaalde 
'!feature”’ van PME. U leert bij wijze van spreken omgaan met een hamer 
en dàt is belangrijker dan het feit dat het voorbeeld bestaat uit het in 
zachtboard aanbrengen van een punaise met die hamer! 

Een listing van wat we allemaal met het programma ASCII gaan uitspoken 
vindt u in tabel 7. De gang van zaken zal punt voor punt worden behan- 
deld. 

Het systeemprogramma PM wordt opgestart. 

Er volgt een koude start van PME. Het startadres van ASCII is $0200. 
De instrukties worden opgegeven. We beginnen met het “inserten” van 
het label 19. Zie verder figuur 9. 

Alle instrukties zijn opgegeven. Het programma wordt via het indruk- 
ken van toets L kompleet opgehoest. 

Het nog niet geassembleerde programma moet op de band worden 
gezet. Daartoe gaan we eerst terug naar PM (terugmelding “JUNIOR"), 
zetten de band startklaar in de opnamestand (pauzetoets!) en drukken 
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JSR — CRLF 


JSR — PRSP 


TAY 
TYA 


20 
29 
A8 
28 
98 
20 
20 


JSR — PRBYT 
ISR — PRSP 
STAZ — PREG 
ISR — SHOWPR 


98 







85 


29 


81912 8 


Figuur 9. Terwille van het leren omgaan met de warme CEND-ingang van PME is het 
programma ASCII uit hoofdstuk 12 van boek 3 hier nogmaals afgedrukt. Het start- 
adres BEGAD is nu $8200. Waarom dit adres zo nodig het label 19 toegekend moest 
krijgen is in de tekst (praktijkvoorbeeld 5) verklaard. 
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achtereenvolgens de toetsen S, 8, 8, ”, "”‚, 2, 0, 0, ”,” 2,1 en E in. Na 
het opnieuw indrukken van de pauzetoets drukken we de toets CR in; 
het programma wordt nu opgenomen en er volgt de terugmeliding 
“READY”. We stoppen de band. Als programmanummer is 88 geno- 
men; SA is gelijk aan BEGAD en EA is gelijk aan CEND, dus een 
adres, één hoger dan het adres waarop de 77 staat (zie de listing, 
punt ©) 

PME wordt warm gestart. 

Het programma wordt geassembleerd (toetsen X en ST indrukken). Er 
is één label; dat wordt netjes afgedrukt. 

Het geassemblieerde programma wordt afgedrukt (toets P). 

We gaan terug naar PM, teneinde het programma te starten en uit te 
proberen. Na de opgave van het startadres en na het starten willen we 
de ASCIl-kode van toets A weten. Dat gaat prima. Dus het program- 
ma werkt naar behoren? Nee, dat doet het niet. Want vervolgens 
willen we de ASClIl-kode van toets 6 weten. Die 6 wordt niet, zoals 
het hoort, op een nieuwe regel afgedrukt, laat staan dat er een ASCII- 
kode zichtbaar wordt. Potverdikkie, wat is hier aan de hand!? Mis- 
schien doen de toetsen B en C het wèl... Nee hoor: van hetzelfde 
laken een pak! 

Kennelijk hebben we iets fout gedaan. Want in hoofdstuk 12 van boek 
3 werkte het programma nog wel! Er breekt een periode aan van grote 
ongerustheid. Tot overmaat van ramp valt er een kop koffie om over 
het nog zo maagdelijk boek 3 en men besluit om toch maar 
lees verder op pagina 61-»- 


Tabel 7. De uitwerking op printerpapier van een “scenario”, waarbij in een bepaalde 
fase gebruik wordt gemaakt van de warme CEND-startingang van PME. Zie verder 
figuur 9 en praktijkvoorbeeld 5 in de tekst. 


® 
(1) JUNIOR 
OREL 
1509 23 R 
BEGAD,ENDAD: 249, 2FF 
PM EDITOR 
3) 9223 77 IFF 19 99 
0209 FF 10 90 20 E8 11 
0203 20 E8 11 20 AE 12 
0206 20 AE 12 A8 
0209 A8 20 F3 11 
020A 20 F3 11 98 
020D 98 20 8F 12 
20E 20 8F 12 20 F3 11 
0211 20 F3 11 98 
0214 98 85 F1 
0215 85 F1 20 28 1 
0217 29 28 12 4C 11 99 
@) B21A 4C 11 GO L 


0203 FF 10 90 
0203 20 E8 11 
7206 20 AE 12 
0209 A8 
029A 20 F3 11 
020D 98 
020E 20 8F 1 
02ii 20 F3 11 
0214 98 
0215 85 F1 
0217 20 28 12 
021A 4C 11 09 
O21D 77 
DONE 
D21E ES 

(5) JUNIOR 


S88,208, 21E 
READY (2) 
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PM EDITOR 
G21E E8 X 
LAB S10: $0299 
PM EDITOR 
9299 29 E8 11 Pp 
7203 20 AE 12 
9206 A8 
6297 20 F3 11 
J20A 98 
020B 29 8F 12 
020E 20 F3 11 
9211 98 
0212 85 F1 
9214 29 28 1 
9217 4C 11 89 
G21A 77 
(8) JUNIOR 


299 
0290 24 R 
A 4i 0199099 L6ABC 


JUNIOR 


G88 
READY 
GD 17C5 
17C5 20 R 
BEGAD,ENDAD: 299, 2FF 
PM EDITOR 
6) 921D 77 S4C 11 99 
B21A 4C 11 49 K 
DONE 
G21A 4C 11 09 K 


G21A 77 I4C 10 49 
G21A 4C 19 OO 
(3) 921D 77 X 
LAB $1d: $0200 
PM EDITOR 
(D) 0200 29 E8 11 P 
0203 29 AE 12 »® 
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0206 AB 
0297 20 F3 ii 
G2JA 98 


029B 29 BF 12 
02E 20 F3 il 
g21l 98 

0212 85 Fi 
0214 20 28 12 
G217 4C 99 92 


021A 77 
(B) JUNIOR 

209 

0208 24 R 


A 4ì 01090001 
42 91099019 
43 B1P00011 
44 01000199 
31 A9119901 
32 09110919 
33 OGi1GO1I1 
34 99110199 
4B 01991011 
SA 01011919 
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eerst naar het journaal van acht uur te kijken. Na afloop daarvan stelt 
men vast dat er ergere dingen in de wereld bestaan. Het gezonde denken 
wint het van de emotie. Toch de boel nog maar eens goed nakijken. En 
ja hoor, binnen een paar minuten klinkt er een “Eureka’’ door het huis. 
Gevonden. Met dat ene label dat er in ASCII zit is prompt iets fout 
gegaan. Er staat: "4C 11 0®’' en dat moet natuurlijk "'4C 19 DÛ zijn. 
Het label 11 is niet opgegeven en na het assembleren en nadat het met 
één toets (A) goed is gegaan wordt er naar het adres $0D11 gesprongen. 
Het programma ASCII is de mist ingegaan. 

Remedie? Lees het programma terug van de band, breng een wijziging 
aan en assembleer het opnieuw. Enzovoorts. 

Na het indrukken van toets RST wordt PM opgestart. We lezen het 
programma ASCII in zijn ongeassembleerde vorm van de band. 

PME wordt gestart via de warme CEND-ingang. De adressen BEGAD en 
ENDAD blijven ongewijzigd. (Indien men vermoedt dat het sleutelen de 
toevoeging van een aantal instrukties inhoudt kan men eventueel 
ENDAD verhogen.) Nadat CEND weer dezelfde waarde (of juister: 
inhoud) heeft als destijds, vlak voor het op de band zetten, kunnen we 
verder gaan met het editen. 
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We zoeken de te wijzigen instruktie op via een searchkommando en 
drukken vervolgens op toets K, teneinde deze uit het geheugen te 
verwijderen (en later te vervangen door de korrekte instruktie). We 
dachten al met het ‘killen’ bezig te zijn, maar eerst moeten we het 
searchen afbreken door het indrukken van een willekeurige toets F 
toets Y. Dat was dus toets K. De korrekte waarde “4C 09 89" wordt 
opgegeven via de insert-toets L. 

Het programma wordt opnieuw geassembleerd. 

Het geassembleerde programma wordt afgedrukt. 

We gaan terug naar PM en starten het programma ASCII. 

Het werkt! 


Nog wat losse praktijkopmerkingen 


Bij de koude, lauwe en warme CEND-start moeten we op het volgende 
letten: Tijdens de startfase, dus vóór het indrukken van de toets CR is 
de BRK-sprongvektor nog volgens PM vastgelegd. Drukt men tijdens het 
afdrukken van “BEGAD, ENDAD:” op de BRK-toets, dan volgt de 
terugmelding "JUNIOR" zodra men de BRK-toets heeft losgelaten; we 
zijn terug in PM. Maakt men een fout bij het opgeven van BEGAD en 
ENDAD, dan volgt de terugmelding WHAT?’ en wordt er vervolgens 
opnieuw. "BEGAD, ENDAD:” afgedrukt. Waarom dat zo is kunt u 
nagaan in de hoofdstukken 14 en 15. Er volgt zoals opgemerkt geen 
foutmelding indien er een ENDAD wordt opgegeven die kwa adres lager 
is dan BEGAD. 

Nog even iets over het opgeven van adres-operanden die moeten worden 
geassembleerd. In hoofdstuk 5 van boek 2 hebben we verteld dat de 
opcode (20 voor een JSR,4C voor een JMP) moest worden gevolgd door 
een labelnummer (namelijk het nummer van het label waarnaar moet 
worden gesprongen) en door een tweede operand-byte, het begrenzer- 
byte (labelbegrenzer). Voor dit laatste byte is in hoofdstuk 5 en in de 
voorbeelden van dit hoofdstuk konsekwent het byte DÛ gekozen. Het- 
zelfde geldt voor het derde byte van een opgegeven label. Dit omdat 
"DD'' lekker opvallend is. Men is echter niet verplicht om als derde byte 
DP te nemen. Dit volgt uit de gang van zaken tijdens de eerste fase van 
het assembleren. Zie hiertoe hoofdstuk 9 van boek 2. Belangrijk is dat 
er in het geheugen plaats wordt gereserveerd voor het tweede operand- 
byte van de JSR of JMP. Trouwens: een instruktie wordt pas in het 
geheugen gezet nadat een aantal bytes is opgegeven dat in overeen- 
stemming is met de lengte van de instruktie. Bij PME krijgt men dat 
ondubbelzinnig in de gaten door de reaktie van PME op de nieuwe 
regel; op de linker kolom wordt de zojuist opgegeven instruktie afge- 
drukt. | 

Kies nooit een labelnummer dat gelijk is aan het rechter byte ADL van 
een absoluut adres (dat dus niet hoeft te worden geassembleerd)! Ga dit 
na voordat u met editen begint en labelnummers moet kiezen. 

Vul bij spronginstrukties nooit álvast een absolute offset in als deze 
vooraf bekend is! De kans is groot dat die offset óók als tabelnummer 
voorkomt. 
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© Gebruik elk labelnummer maar één keer. Hoewel het niet verplicht is 
verdient het aanbeveling om labelnummers toe te kennen in een volgor- 
de met toe- of afnemend nummer (de eventuele verboden nummers 
gewoon overslaan) en in de volgorde waarin ze in het geheugen terecht 
komen tijdens het editen. Men kan dan vooraf al goed nagaan of het 
offsetbereik van een branch-instruktie niet wordt overschreden. Zono- 
dig “brancht’ men naar een label dat wordt gevolgd door een absolute 
sprong. 


Tot zover nog wat praktische tips. Voor een deel ging het om herhalings- 
oefeningen van hoofdstuk 5 van boek 2. Maar uw oefeningen met PME zijn 
alles behalve herhalingsoefeningen. Het enige dat van de standaard-editor 
wordt herhaald is het elegante systeem van de hexadecimale labels en 
labelnummers. Wij wensen u een aangename tijd toe met PME — en met 
het bedenken van programma’s. 
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14. 
1268 bytes PM-software 


Het Junior-op-tv-programma 


In hoofdstuk 12 van boek 3 heeft u het systeemprogramma PM 
leren kennen. U weet hoe u er mee om moet gaan en in dit 
hoofdstuk kunt u aan de weet komen hoe het in zijn werk gaat. 
Men kan zich natuurlijk afvragen of een gedetailleerd inzicht in 
de PM-software wel zo nuttig is en of men niet kan volstaan met 
de praktische omgangsvormen. Nog afgezien van het feit dat u 
niet verplicht bent om dit hoofdstuk te lezen zijn er twee argu- 
menten aan te voeren om dat wèl te doen. Allereerst levert 
kennis van hoe ze het gedaan hebben” bruikbare kennis op 
voor de ontwikkeling van eigen programma's. Ten tweede: aller- 
lei PM-subroutines zijn in die ego-programma's toe te passen. 
Denk aan allerlei voorbeeldprogramma’s uit de hoofdstukken 12 
en 13. 

Het nut van dit hoofdstuk is dus hetzelfde als het nut van verge- 
lijkbare hoofdstukken van boek 2. Ten aanzien van de bespre- 
king van de software moeten we ons echter de nodige beperkin- 
gen opleggen. Uit de titel van dit hoofdstuk kunt u al opmaken 
dat de hoeveelheid te bespreken software wel wat meer bytes 
inhoudt dan in boek 2 het geval was. Vandaar dat we de diverse 
onderdelen puntsgewijze bespreken en er hier en daar van uit 
gaan dat u bij het lezen van dit hoofdstuk dok al drie boeken 
achter de rug hebt. En dus de machinetaal van de 6502 al aardig 
onder de knie hebt. 


1 leder systeemprogramma bestaat uit een hoofdroutine en één of 

meerdere voorroutines. En verder natuurlijk subroutines. De hoofd- 
routine heeft een bekende struktuur: er wordt gewacht op een ingedrukte 
toets en gekeken welke toets het was. Vervolgens wordt de bijbehorende 


64 


toetsfunktie uitgevoerd en gaan we terug naar een centraal punt en wach- 
ten we op een volgende toets: de kring is gesloten. 

Een voorroutine wordt slechts incidenteel doorlopen. Bijvoorbeeld tijdens 
het starten van het programma. De voorroutine van PM staat in de figuren 
la en 1b. Hij is te vergelijken met de RESET-routine van de standaard- 
monitor en wordt doorlopen tijdens de eerste respektievelijk tweede start 
van PM; zie de pagina’s 146 en 148 van boek 3. Het gedeelte na het label 
LABJUN (figuur 1b) wordt tevens doorlopen na het indrukken van de 
BRK-toets en na de foutmelding ''JUNIOR'’. De routine STEP (figuur 1b) 
wordt doorlopen telkens nadat er een instruktie is uitgevoerd tijdens het 
on stap uitvoeren van een programma en, in het algemeen, nadat een 


NMI is opgetreden. 


LDAIM $J9 


Xx Ja 




























LDXIM SFE 


D 

I 

S PBD 

Ss CNTL CNTL FE 
Ss 
NMI 


XxX EFF 


CL 

SE 

TA 

STA 

TX 

IN 
SPUSER —FF 


81913 1a 
(figuur 1b) 


Figuur 1a. Het eerste deel van de voorroutine van PM. En wel het gedeelte vanaf het 
label INITPR tot het label STRTBT. 
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De voorroutine INITPR (figuur 1a) begint met een aantal elementaire 
zaken. Er wordt overgeschakeld op binair rekenen en aan [RO-interrupts 
hebben we geen boodschap (SEI). In figuur 1a wordt verder de |/O vast- 
gelegd. Door het laden met 7F van PADD en PBDD zijn alle poortlijnen 
op PB7 en PA7 na tot uitgang verklaard. Poortlijn PB7 staat dus klaar om 
data van de band te ontvangen, PA7 is bereid om seriële data te ontvangen 
en PBO staat klaar om data serieel te verzenden. Door PAD de waarde QÒ 
toe te kennen staat er op de uitgangen PAG... PA6 een logische één. Dit 
zou kunnen leiden tot het oplichten van de zes displays (alle segmenten; 
zie hoofdstuk 7), ware het niet dat door het aan 67 gelijk maken van PBD 
de displayschakelaar in een neutrale stand staat. Kijk maar: met PBD = 67 
komt overeen: PB1 =PB2=1 en PB3 = PB4 = . Dan is de niet gebruikte 
uitgang ''3' van de dekoder 1C7 van de standaardkaart logisch nul; zie bij- 
voorbeeld figuur 10 op pagina 110 van boek 2. Door het logisch één 
maken van PB5 en PB6 worden de beide indikatie- en relais-stuurschakelin- 
gen die een rol spelen bij het cassette-gebeuren, uitgeschakeld (zie het 
schema van de interface-kaart in boek 3). En verder heeft het logisch één 
maken van de uitgang PB@ tot gevolg dat deze als seriële uitgang gebruikte 
uitgang het logische rustnivo aanneemt dat van toepassing is als er geen af 
te drukken karakters door de junior-computer worden verzonden (het 
logische rustnivo van de RS 232-lijn is dan nul). 

Er valt nog veel meer voor te bereiden. De feitelijke en de gebruikers-stack 
pointer worden op FF gezet. De geheugenplaats STPBIT krijgt de waarde 
2. Dat wil zeggen dat ieder door de computer verzonden ASCII-karakter 
wordt afgesloten met twee stopbits. Verder wordt de BRK-sprongvektor 
gespecificeerd op het startadres van LABJUN (figuur Tb; terugmelding 
"JUNIOR!”) en de NMI-sprongvektor idem dito op het startadres van STEP 
(eveneens figuur 1b). Rest nog één ding van figuur Îa: het laden van CNTL 
met FE en van CNTH met FF. Waarom? Dât gaan we nu bespreken. 


We zijn bij figuur Îb aangeland. Het programma van figuur Îa is hele- 

maal doorlopen na de eerste start van PM. De vraag rijst wanneer we 
verder gaan met de tweede start. U weet van hoofdstuk 12 dat het voor die 
tweede start nodig is dat de als RUB OUT gebruikte toets RES wordt inge- 
drukt. Met als gevolg het verzenden van de bijbehorende ASCIl-kode /F. 
Te beginnen met de verzending van het startbit. En wat er zich dan ver- 
volgens afspeelt is in figuur 2 geschetst. Het label STRTBT (figuur 1b) 
begint met het bekijken van de seriële ingang PA7 via een BlT-instruktie. 
Die BIT zorgt ervoor dat de N-vlag gelijk is aan bit 7 van de geheugen- 
inhoud die wordt ge-BIT, en dat is PA7. Zodra het begin van een startbit 
is vastgesteld volgt de aanroep van de subroutine COMTIM. Deze staat in 
figuur 3. Gedurende de subroutine COMTIM wordt er gewacht totdat het 
startbit voorbij is. Dus gewacht totdat PA7 weer logisch één is geworden. 
Waarom dat "dus? Omdat we weten dat de nu volgende seriële databits 
logisch één zijn. Er wordt immers gekeken of het ontvangen ASCI-karak- 
ter 7F is. Zie ook figuur 2. 
Zolang het startbit nog aan de gang is wordt er periodiek bij het 16-bits 
getal, gevormd door de inhoud van de geheugenplaatsen CNTH en CNTL, 
één opgeteld. De uitvoering van die optelling kost een bepaalde, vaste tijd. 
De beginwaarde van (CNTH, CNTL) is FFFE. Naarmate de bittijd T hoger 
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Dg 1 b (figuur 1a) 






BIT PAD 
startbit 
begonnen? 
ja PA7Z=N=@ 


JSR COMTIM 


LSR TIMH 
ROR TIML 
LDA TIML 


STA CNTHL 


LDA TIMH 
STA CNTHH 
ARR LDXIM 58 


JSR DELHBT wacht 5 T 


STEP 
JSR RECD 


STAZ ACC A > ACC 
PLA 
B 195F 
PCL *POINTL LABJUN 
PLA 
STAZ PCH PCH > PCH 
STAZ POINTH | PCH ”POINTH JSR _ JUNIOREN “JUNIOR” 


STYZ YREG Y > YREG JSR _CRLF ar 


STXZ XREG X > XREG LDXIM SFF 


) 
2 
u. 


TSX 


STXZ SPUSER STXZ SPUSER 


JSR PRBUFS SP > SPUSER 


JMP _RESALL | “(PCHPCUILI XX" 
RESALL 


(figuur 13a) 





81913 Ib 


N.B. Voor de PM-hoofdroutine: zie de pagina's 85... 87 


Figuur 1b. Het vervolg van de voorroutine van figuur Ta (rechts in figuur 1b) en de 
STEP-voorroutine (links in figuur 1b). 
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Xx 2 PAI bg b, bz b3 b4 bs bs b5 






Ì 
SzE =O 


A 
JSR-COMTIM ‚_ RTS-COMTIM 
JSR-DELHBIT Biens 


Figuur 2. Het pulsdiagram van een serieel verzonden ASCII-karakter. Door één keer 
een halve bittijd %T te wachten wordt het logische nivo van een databit altijd 
middenin de betreffende bittijd vastgesteld. 


x 3 {CNTH,CNTL) = FFFE 12E 
! 





LDA CNTL 

ADCIM Sd1 

STA CNTL verhoog 
(CNTH,CNTL) 

LDA CNTH met 1 

ADCIM $04 


(TIMH,TIML) 


(ENTH,CNTL) 


\ 81913 3 


1200 Baud: 
(CNTH,CNTL) = @61B 


Figuur 3. De subroutine COMTIM bepaalt indirekt, namelijk via de inhoud van de 
geheugenplaatsen CNTH en CNTL, hoe lang het startbit van een verzonden ASCII- 
karakter 7F duurt. Daarmee ligt de bittijd T vast. 


is zal ook de eindwaarde van (CNTH, CNTL) hoger zijn. De bittijd is 
bepaald via de data-verzendsnelheid, dus via Baudrate; deze wordt vastge- 
legd door de klokgenerator en de VART in het randapparaat. De bedoeling 
van die CNTH/CNTL-geschiedenis is ondermeer dat de junior-computer via 
PM ASClIl-karakters verzendt met nagenoeg dezelfde snelheid als de snel- 
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heid waarmee ASClIl-karakters naar de computer worden verzonden, door 
het randapparaat. 

In de Elekterminal hebben we de baudrate-schakelaar taten vervallen. Zie 
hoofdstuk 12. Er is sprake van een vaste verzendsnelheid van 1200 Baud. 
Hiermee komt overeen een inhoud van CNTL van 1B en 9 voor CNTH. 
Men kan dit kontroleren door na het opstarten van PM de geheugen- 
plaatsen 1A5A (CNTL) en 1A5B (CNTH) te bekijken. Op deze manier, 
met twee geheugenplaatsen, is het voor de junior-computer mogelijk om 
zich in te stellen op een groot bereik van door de aangesloten randappara- 
tuur bepaalde baudrates. Het gaat goed zolang de inhoud van CNTH niet 
hoger wordt dan FF, dus zolang de baudrate niet te laag is. 

Aan het eind van COMTIM wordt de eindstand van (CNTH, CNTL) 
gekopieerd in de geheugenplaatsen TIMH en TIML. 


Direkt na afloop van de subroutine COMTIM gebeurt er het een en 

ander met de inhoud van TIMH en TIML. Alle bits van het getal, 
gevormd door (TIMH, TIML) schuiven een plaatsje naar rechts op. Dat 
gaat via het naar rechts schuiven (LSR) van de bits van TIMH en het 
rechtsom draaien (ROR) van de bits van TIML. Dat heeft uiteindelijk tot 
gevolg dat het getal, gevormd door (CNTHH, CNTHL) ongeveer half zo 
groot is als het getal, gevormd door (CNTH, CNTL). Voor oneven getallen 
klopt het niet helemaal. De geheugenplaatsen CNTH en CNTL bevatten 
een getal dat samenhangt met de bittijd T en de geheugenplaatsen CNTHH 
en CNTHL een getal dat samenhangt met de halve bittijd %T. Waarom? 
Zie het nu volgende punt 4. 
(N.B. Wordt vervolgd in punt 6). 


Voordat we verder gaan met de rest van de voorroutine van PM, dus 

met de rest van figuur Îb, volgt er nu eerst een intermezzo; er wordt 
een aantal elementaire subroutines besproken. Allereerst de subroutines 
DELHBIT en DELBIT van figuur 4. We gaan ervan uit dat de bittijd T vast- 
ligt via de inhoud van de geheugenplaatsen CNTH en CNTL en dat de halve 
bittijd VT vastligt via de inhoud van de geheugenplaatsen CNTHH en 
CNTHL; zie hiertoe punt 3. De subroutines DELHBIT en DELBIT zorgen 
ervoor dat er een halve bittijd %T respektievelijk een hele bittijd T wordt 
gewacht. De tijd %T of T wordt als volgt besteed: 
Zolang de BCS na het label CNTDN (Count down; aftellen) in figuur 4 op 
springen staat wordt het getal, gevormd door (TIMH, TIML), periodiek 
verlaagd. De beginwaarde van (TIMH, TIML) is gelijk aan de eindwaarde 
van het getal (CNTH, CNTL) na afloop van COMTIM (ingang DELBIT), 
òf gelijk aan de door twee gedeelde eindwaarde van (CNTH, CNTL), dus 
gelijk aan het getal (CNTHH, CNTHL) (ingang DELHBIT). Het periodiek 
met één verlagen gaat net zo lang door totdat de BCS niet meer op sprin- 
gen staat, dus totdat C nul wordt en dus de borrow = C één wordt. De 
inhoud van (TIMH, TIML) is dan negatief: het getal FFFE. Dit getal is 
gelijk aan de beginwaarde van (CNTH, CNTL) aan het begin van de sub- 
routine COMTIM (zie punt 2). Met andere woorden: indien we er voor 
zorgen dat het doorlopen van het programmadeel vanaf het label CNTDN 
tot en met de BCS net zo lang duurt als het doorlopen van het programma- 
deel vanaf het label COMTIM (figuur 3) tot en met de BPL, dan wordt er 
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Xx 1393 | 1312 


DELHBT T/2 T DELBIT 


LDA CNTHL LDA CNTL 







STA TIML STA TIML 
{TIMH,TIML) (TIMH,TIML} 
en e = (CNTH,CNTL) 
(CNTH,CNTHL}) 
JMP CNTDN 
LDA TIML 
SBCIM $@1 
verlaag 
STA TIML (TIMH,TIML) 


met 1 
LDA TIMH 


SBCIM $49 


STA TIMH 


laatste 

keer 

springen: 
(TIMH,TIML) = 4400 


sd 
& 
% 


(TIMH,TIML) = FFFE Cc 


81913 4 


Figuur 4. De subroutines DELHBIT en DELBIT zorgen ervoor dat er een halve bittijd 
YT respektievelijk een hele bittijd T wordt gewacht. 


automatisch een halve bittijd %T respektievelijk een hele bittijd T gewacht. 
In figuur 3, in COMTIM, duurt het 29 ys voordat het programma vanaf het 
label COMTIM tot en met de BPL (springen naar een adres op dezelfde 
pagina) één keer is "afgelegd’’. Zonder de twee NOPs duurt het in figuur 4 
25 us voordat het programma vanaf het label CNTDN tot en met de BCS 
(springen naar een adres op dezelfde pagina) één keer is doorlopen. Mêt 
die twee NOPs is dat óók 29 gs. Vandaar de toevoeging van die twee 

schijnbaar nutteloze instrukties. | 
De eerder (zie punt 2) genoemde eindstand (CNTH, CNTL)= 001B 
betekent dat, vanuit de beginpositie FFFE, (CNTH, CNTL) 29 keer met 
één is verlaagd. Dat heeft 29 x 29 = 841 us geduurd. Verder kost de aan- 
roep van de subroutine COMT IM ook nog zo’n 6 us en wordt het begin van 
een startbit hoogstwaarschijnlijk niet op exakt hetzelfde moment ontdekt 


Z 
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(onderbreking wachtlus met BIT-PAD, bovenaan in figuur jb). We kunnen 
dus uitgaan van een vastgestelde bittijd van om en nabij de 850 us. Aan de 
andere kant is er sprake van een baudrate van 1200. Dus 1200 bits per 
sekonde, Daarmee komt een bittijd overeen van 833 us. We zitten er dus 
niet zo gek ver naast en gelukkig hoeft PM in dit opzicht nou ook weer 
niet zo'n Pietje Precies te zijn. 


Het tweede intermezzo (na het eerste van punt 4) betreft de bespre- 

king van de subroutine RECCHA. We treffen hem aan in figuur 5. 
Deze subroutine houdt zich bezig met het vaststellen van een naar de 
junior-computer verzonden ASCll-karakter en zet de bits van dat karakter 
in de juiste volgorde in de accu. Een naar de computer verzonden karakter 
komt overeen met het indrukken van een software-toets van het ASCII- 
toetsenbord. Omdat er sprake is van een hardware-echo (zie hoofdstuk 12) 
uit het verzonden karakter zich eveneens op het tv-scherm of printer- 
papier. 
Het begint in figuur 5 met een wachtlus: BIT-PAD plus BMI. Pas nadat het 
begin van een startbit is vastgesteld (PA7 = @) gaan we verder. Eerst wordt 
de waarde van het X-register opgeslagen in TEMPB. Rechtsonder in figuur 
5, vlak voor de RTS, zien we dat het X-register zijn oorspronkelijke inhoud 
terug krijgt. Dus tijdens RECCHA gaat de inhoud van het X-register niet 
verloren. Tijdens RECCHA doet X dienst als bitteller; hij krijgt de begin- 
waarde @8. Nadat dit is gebeurd wordt er een halve bittijd gewacht en 
vervolgens, na het label RECA, nog eens een hele bittijd. Dit heeft tot 
gevolgd dat we kwa tijd middenin de periode zitten tijdens welke het 
eerste ASCII-bit b® wordt verzonden. Zie figuur 2. Via BIT-PAD en de aan- 
sluitende BPL wordt er gekeken of het bit nul of één is en afhankelijk 
daarvan gehandeld. De carryvlag wordt gelijk gemaakt aan de bitwaarde. 
Van links uit wordt die carry via een ROR de geheugenplaats CHA inge- 
schoven. Alle bits van CHA schuiven een plaatsje naar rechts op. 
Voor CHA geldt de volgende toestand: 
NaX=08: bd X X X X X 
NaX=07: bl bÔ X X X X 
Na X=06: b2 b1 bÔ X X X 
NaX=05: b3 b2 bl b® X X 
NaX=@04: b4 b3 b2 bl bÔ X 
NaX=03: b5 b4 b3 b2 bl b® 
NaX=02: b6 b5 b4 b3 b2 bl b 
NaX=0@1: b7 b6 bb b4 b3 b2 b1 b 
En alle bits staan netjes op hun plaats. In CHA. Rest nog de afwerking. Na 
het label RECC wordt nog een bittijd T gewacht. Dan wordt het eerste 
stopbit verzonden. De inhoud van CHA wordt gekopieerd in de accu en 
met behulp van de instruktie AND #7F wordt het bit b7 nul gemaakt. Dat 
bit was het door het toetsenbord, of juister: het door de VART verzonden 
pariteitsbit. In hoofdstuk 12 heeft u kunnen lezen dat we daarin niet zijn 
geïnteresseerd. 
Het label RECD in figuur 5 is schijnbaar voor niets aanwezig. Schijnbaar, 
omdat er naar wordt gesprongen vanuit de voorroutine (zie figuur 1b en 
punt 6). In deze fase is het startbit al vastgesteld. Verder moet X vóór de 
sprong naar RECD de waarde @8 toegekend krijgen. 


DK DK DM DM DK XK 
DK MK MDK MK X 
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BIT PAD 
starthit 
nee begonnen ? 
j 
PA7 =# 
STX TEMPB bewaar X 


LDXIM $88 tees acht bits in 


JSR DELHBT wacht 5 


JSR DELBIT 





tie -p- 
figuur 
Ib 
BIT PAD 
Seriële 
databit tof 8? RESE 
CLC C=# 
ROR CHA 
volgende 
bit 
alle 8 alle 8 
ASCHI- ASCH- 
bits bits 


JMP RECC 


JSR DELBIT wacht T 
LDA CHA A CHA 
ANDIM 57F br 


LDX TEMPB herstel X 
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Figuur 5. De subroutine RECCHA houdt zich bezig met het vaststellen van een aan 
de junior-computer verzonden ASC!l-karakter, dus met het vaststellen van een 
ingedrukte toets op het ASCII-toetsenbord. 
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G (vervolg van punt 3). We bespreken nu de rest van de tweede helft 
van de voorroutine van PM. Zie figuur 1b. Nadat het startbit achter 
de rug is en nadat de diverse bittijd-geheugenplaatsen de juiste inhoud 
hebben gekregen krijgt X de waarde @8, wachten we een halve bittijd 72 T 
en springen we naar dat gedeelte van de subroutine RECCHA dat zich 
bezig houdt met het inlezen van alles van het ASCII-karakter na het start- 
bit (zie figuur 5 en punt 5). Is dat allemaal achter de rug, dat wordt er 
gekeken of dat ASCIl-karakter soms de kode 7F had. Dus of de toets 
RES = RUB OUT is ingedrukt, ten teken van het afwerken van de tweede 
startfase van PM. Is dat het geval, dan gaan we verder met het label 
LABJUN. Zoniet: terug naar AF, naar INITPR (figuur 1a}). 
Het afwerken van alles na het label LABJUN houdt in dat er wordt ge- 
zorgd voor het afdrukken van de boodschap "JUNIOR" en dat al het 
toekomstige, door PM verzorgde drukwerk plaatsvindt vanaf het begin van 
een nieuwe regel (CRLF). De beide subroutines JUNIOR en CRLF worden 
later besproken (zie de punten 11 en 12). 
Indien we bedenken dat er óók naar LABJUN wordt gesprongen na het 
indrukken van die grafische noodrem: de BRK-toets, dan kan men zich 
voorstellen dat er situaties optreden waarbij de stapel “overloopt”, met 
alle nare gevolgen van dien. Vandaar dat de stack pointer en SPUSER beide 
op hun nummer (FF) worden gezet. Nadat dit is gedaan is de voorroutine 
van PM doorlopen; we zijn aangekomen bij het label RESALL. Dat is het 
centrale punt van de hoofdroutine van PM. 


Een tweede voorroutine van PM is de voorroutine STEP van figuur 

1b. Deze wordt doorlopen tijdens de terugkeer naar PM na de uit- 
voering van één instruktie in het geval van het stap voor stap doorlopen 
van een programma: Dat is óók in het algemeen het geval nadat er een 
NMI heeft plaatsgevonden. De NMI-sprongvektor is tijdens de voorroutine 
INITPR gespecificeerd op het adres van het label STEP; zie figuur 1a. 
De voorroutine STEP lijkt als twee druppels water op de SAVE-routine 
van de standaard-monitor. Alle registers worden bewaard in de bekende 
geheugenplaatsen (zie de hoofdstukken 3 en 7). Ter afsluiting volgt de 
sprong naar de subroutine PRBUFS. Deze wordt later (zie punt 10) in 
detail besproken. Nu is het voldoende om te weten dat het adres (PCH, 
PCL) op het begin van een nieuwe regel wordt afgedrukt, gevolgd door een 
spatie en de inhoud van de bij dat adres horende geheugenplaats. Zoals zal 
blijken: werkadres plus werkdata. In het stap-voor-stapgeval is de inhoud 
van die geheugenplaats de opcode van de volgende uit te voeren instruktie. 
(Deze instruktie wordt uitgevoerd via het indrukken van toets R). 
Men kan de STEP-ingang van PM eveneens gebruiken om naar te springen 
na de instruktie BRK of na een hardware-lRO. In dat geval moet men de 
[RO-sprongvektor zelf specificeren. 


De voorroutines van PM zijn nu behandeld. Verder zijn er al enige PM- 
subroutines de revue gepasseerd. Voordat we overgaan tot de bespreking 
van de hoofdroutine van PM komen er eerst nog enige andere PM-sub- 
routines aan de orde. Ze hebben allemaal iets te maken met het door de 
junior-computer af te leveren drukwerk. 
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Zoals RECCHA de elementaire ontvang-subroutine is, zo is PRCHA 
de elementaire verzend-subroutine. Het stroomdiagram staat in de 
figuren 6a en 6b. Deze subroutine zorgt ervoor dat een ASCIl-karakter, 
waarvan de kode in de accu staat, wordt afgedrukt. 
Het begint met het bewaren van de inhoud van het X-register in de 
geheugenplaats TEMPA. Vlak voor de RTS (figuur 6b) krijgt X de oude 


*X Ga 1334 


STX TEMPA bewaar X 


u 
0 
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TA CHA A CHA 
LDA B 
ANDIM SFE 
STA PBD PBO = & 


JSR DELBI wacht T 


LDXIM $47 bitteller: 7 







PRA 
C = te verzenden 
LSR CHA bit 
C=1 
LD B LDA PBD 


ANDIM SFE 


ORAIM S$S0i 


> 
"g 
u 


vi 
3 
pd 
u 
oo 
u 


PRB 


JSR DELBIT wacht T 


DEX volgende bit 
ne alle bits 
verzonden? 
ja 81913 Ga 


14 


inhoud terug. Dus uiteindelijk blijft het X-register tijdens PRCHA onaan- 
getast. De geheugenplaats CHA speelt net zoals bij RECCHA ook nu een 
rol bij de behandeling van de bits; de inhoud van de accu wordt gekopieerd 
in CHA. Vervolgens maken we via het maskeren van bit nul (de instruktie 
AND #FE, dus AND #1111.1110) PB nul en wachten een bittijdje T: 
het startbit is nu verzonden. Daarna maken we X, die als bitteller dienst 
doet, gelijk aan @7. | 

Nu krijgt de carryvlag de waarde van het te verzenden bit (direkt na het 
label PRA in figuur6a). Dat gebeurt door zeven keer de instruktie 
LSR-CHA uit te voeren. De poortlijn PB@ krijgt een met de bitwaarde 
(= C) overeenkomende waarde; de andere poortlijnen PB1 ...PB7 blijven 
ongemoeid. 


* Gb @ 


ORAIM $@1 
pan 










EX 


volgende stopbit 


2 stopbits 
verzonden? 
BRKTST 
„BIT PAD 
PA7 =0 

id BRK-toets 

toets ï losgelaten? 
ingedrukt? je hi : 


nee | pa7=1 ja | PA7=1 


y 






LDX TEMPA herstel X JMI BRKT 


81913 6b 


Figuur 6. De elementaire drukwerk-subroutine PRCHA is er voor het afdrukken van 
gen ASCIl-karakter (waarvan de kode in de accu staat) op het tv-scherm of printer- 
papier. Het stroomdiagram omvat de figuren 6a en Gb. 
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De gang van zaken is als volgt: 
Begin PRCHA: @ b6 b5 b4 b3 b2 bl b} C =X 


Na X = 07:  Û b6 b5 b4 b3 b2 bl C= bô 
Na X = @6: Ó Ó OP b6 b5 b4 b3 b2 C =b1 
NaX=05: 0 0 O O b6 b5 b4 b3 C=b2 
Na X = 04: 0 0 0 Gd Û b6 b5 b4 C=b3 
Na X = 03: 6 0 B PO Ì Ö b6 bb C =b4 
Na X = 02: 0 0 0 0 Pd Ó B b6 C=b5b 
Na X = @1: 6 0 0 0 d @ Ì PO C=b6 


We zien dat bit zeven vóór de seriële dataverzending nul is en niet wordt 
verzonden. Dat klopt, want in PM doen we niet aan een pariteitsbit; alleen 
de zeven ASCII-bits worden verzonden. 

We zijn toe aan figuur 6b, en aan de verzending van twee afsluitende stop- 
bits. Dat aantal, 2, staat in de geheugenplaats STPBIT (zie figuur la) en 
wordt nu in X gezet. Vervolgens wordt er twee keer achter elkaar een 
bittijd T gewacht, waarbij PBÒ de waarde nul heeft. 

De eigenlijke verzending van het ASClII-karakter is nu voltooid en wat er 
vervolgens in figuur 6b gebeurt heeft te maken met de BRK-toets. U weet 
van hoofdstuk 12 dat we het afdrukken van ASCll-karakters door de 
junior-computer konden onderbreken door de BRK-toets in te drukken. 
Nadat het aan de beurt zijnde ASClII-karakter volledig ís verzonden gaan 
we dan ook kijken of die BRK-toets is ingedrukt. Is dat niet het geval, dan 
zijn we op het herstellen van X na klaar. Is dat wèl het geval, dan wordt er 
net zolang gewacht totdat de BRK-toets weer is losgelaten. Als het zo ver 
is dan volgt een Jump-indirekt (in figuur 6b aangegeven met de niet- 
officiële opcode JMI). Het effektieve sprongadres (BRK-sprongvektor) is 
gespecificeerd in de geheugenplaatsen BRKT ($1A7C) en BRKT+1 
($1A7D). Dit effektieve sprongadres is gelijk aan het adres van het label 
LABJUN. Zie figuur 1a. Na het indrukken — èn het loslaten! — van de 
BRK-toets volgt de terugmelding “JUNIOR. 


De subroutine PRBYT houdt zich bezig met het afdrukken van acht- 

bits data, die in de accu staat. In figuur 7a is-ie te zien. De data 
wordt verzonden in de vorm van twee ASCIl-karakters; eentje voor het 
linker nibble en eentje voor het rechter nibble. Dat betekent dat elk 
nibble vóór de verzending eerst in de bijbehorende ASCIl-kode moet 
worden vertaald. (Data 20 bijvoorbeeld zou zonder omzetting in de 
ASCIl-kodes 32 resp. 39 worden behandeld afs de ASCII-kode van een 
spatie). Daarom komt nu eerst de subroutine NIBASC van figuur 7b aan 
de orde. 
Voor datanibbles 9® .. . $9 (hexadecimale en decimale numerieke toetsen) 
is de ASCli-kode gelijk aan $30...$39. Voor datanibbles BA... OF 
(hexadecimale numerieke toetsen) is de ASCII-kode gelijk aan $41 ...$46. 
Zie Aanhangsel 7 op pagina 215 van boek 3. Gaan we ervan uit dat aan het 
begin van NIBASC de inhoud van de accu gelijk is aan GX, met X=D...F, 
dan moet in het ene geval $3® bij de accu-inhoud worden opgeteld om de 
ASCIi-kode te krijgen (Ô...9), en in het andere geval (A... F) moet er 
$37 bij de accu-inhoud worden opgeteld om de juiste ASCil-kode te! 
realiseren. Dat is precies wat er gebeurt tijdens NIBASC. Via een CMP- 
immediate en een BMI worden de ®... 9-bokken van de A... F-schapen 
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CMPIM SQA 


A = BOBOXXAK 


OE 


A= XXXXYYY 
PRNIBL 


ANDIM SOF A =@640Y YY" 


JSR NIBAS 


JSR PRCHA nyyyyr 


81913 7e 81913 7b 


Figuur 7. De subroutine PRBYT (figuur 7a) verzorgt het afdrukken van een 

databyte in de vorm van twee datanibbles. Elk datanibble moet eerst worden omgezet 
in de overeenkomende ASCII-kode, alvorens te worden verzonden. Daartoe dient de 
subroutine NIBASC van figuur 7b. 


gescheiden. Zowel bij de bokken als bij de schapen wordt $3Q opgeteld; bij 
de schapen wordt vooraf eerst nog $97 opgeteld. 

Terug naar de subroutine PRBYT. Dus naar figuur 7a. Die begint met het 
in de ijskast zetten van de accu-inhoud: PHA. Vervolgens gaan we vier keer 
achter elkaar de bits van A naar rechts schuiven. Het resultaat is dat het 
rechter nibble gelijk is aan het oorspronkelijke linker nibble en dat het 
linker nibble nu nul is. 

Nu volgt de sprong naar NIBASC (figuur 7b); het linker nibble is vertaald 
in de bijpassende ASCIl-kode en gaat vervolgens naar het tv-scherm of 
printerpapier: de subroutine PRCHA van punt8 en van figuur 6a/6b. 
Daarna wordt de oorspronkelijke accu-inhoud weer uit de ijskast gehaald 
(PLA) en zijn we toe aan het label PRNIBL, teneinde het rechter accu- 
nibble af te drukken. Het label PRNIBL is vaak heel goed te gebruiken 
als het startadres voor een subroutine die slechts één nibble afdrukt 
(namelijk het rechter nibble). Door het maskeren van het linker nibble 
is de accu-inhoud voorbereid voor de nu volgende gang door de sub- 
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routines NIBASC en PRCHA: het rechter nibble wordt afgedrukt en we 
zijn klaar. Vandaar de RTS. 


105: subroutine PRBUFS van figuur 8 houdt zich bezig met het af- 
drukken van wat we het werkadres hebben genoemd. De adres- 
informatie staat in de buffers POINTH (linker adresbyte) en POINTL 
(rechter adresbyte). Dàt zijn oude bekenden! Tevens wordt de inhoud van 
de geheugenplaats (POINTH, POINTL) afgedrukt. Dus de werkdata. Het 
verhaal van en over figuur 8 is gauw verteld. Er wordt altijd op het begin 
van een nieuwe regel begonnen (subroutine CRLF, zie punt 12). Daarna 
wordt het linker byte ADH van het werkadres afgedrukt via de subroutine 
PRBYT, die we zojuist, in punt 9, hebben leren kennen. Vervolgens van 
hetzelfde laken een pak, maar dan voor het rechter byte ADL van het 
werkadres. Dan een spatie, ter wille van de grafische vormgeving (sub- 
routine PRSP, zie punt 12). Rest nog het naar de accu halen van de ge- 
heugeninhoud van het adres (POINTH, POINTL) via LDA-(POINTL),Y, 
met Y gelijk aan nul. En tenslotte het zichtbaar maken van de twee data- 
nibbles (PRBYT) van deze werkdata en het nogmaals ""afdrukken” van een 
spatie. 


Ed 8 11F8 


PRBUFS 


JSR CRLF 













“ADH” (werkadres) 


"ADL" (werkadres) 


tr Lr’ 


A © werkdata 


"DOC (werkdata) 


re Lj 


81913 8 


Figuur 8. De subroutine PRBUFS, voor het afdrukken van een werkadres met de 
bijbehorende werkdata. 


1 De subroutine MESSY van figuur Oa is er voor het afdrukken van 

een stukje tekst ("text string’). Van een boodschap dus. Bijvoor- 
beeld een terugmelding of een foutmelding. Denk aan "JUNIOR" of 
UWHAT?'', maar ook aan ''SA:". De af te drukken tekst is, in de ASCIHI- 
kode vertaald, aanwezig in een aantal opeenvolgende geheugenplaatsen van 
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LDA MESS,Y 
CMPIM 503 







81913 Ja 


1246 124F 


en 


LDYIM S49 LDYIM $47 LDYIM SOE 


JUN 


JSR CRLF B 81913 9b 


Figuur 9. De subroutine MESSY (figuur Ga) verzorgt het afdrukken door de junior- 
computer van een terugmelding; in sommige gevallen heeft die terugmelding het 
karakter van een foutmelding. De subroutines JUNIOR, EDITOR en ASSEM van 
figuur 9b leveren, onder gebruikmaking van MESSY, de terugmelding “ JUNIOR", 
"EDITOR" of ”ASSEMBLER"' op. De laatste twee terugmeldingen worden bij PM 


niet toegepast. 
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de opzoektabel MESS, die de adressen 13BD tot en met 141D omvat (zie 
de listing achter in dit boek). Voor elke ASCII-kode één geheugenplaats. 
Het aantal plaatsen dat een bepaalde geheugenplaats van de opzoektabel 
van het eerste adres 13BD verwijderd is leggen we vast via de waarde van 
de index Y. Een tekst is afgesloten met een EOT-teken (ASCIl-kode $93)… 
De gang van zaken is dat men met een Y begint die overeenkomt met het 
eerste tekstteken van de boodschap en dat men net zo lang doorgaat (via 
het verhogen van Y} totdat een einde-tekstteken EOT is vastgesteld. 

De subroutine MESSY (figuur 9a) begint met een andere subroutine: 
CRLF (zie punt 12). Er wordt begonnen op het begin van een nieuwe 
regel. Daarna (label ME) wordt via de instruktie LDA-MESS,Y een af te 
drukken tekstteken de accu binnengehaald. De beginwaarde van Y moet 
vóór de sprong naar MESSY zijn vastgelegd. Er wordt vervolgens gekeken 
of er geen EOT-teken is binnengehaald. Want dan zijn we klaar (RTS). 
Zoniet, dan volgt het afdrukken van het zojuist opgehaalde tekstteken 
(PRCHA) en verhogen we Y met één; het spel kan opnieuw beginnen 
(JMP-ME). In sommige gevallen wordt alles via MESSY vanaf het label 
ME als subroutine gebruikt. Er wordt dan niet op een nieuwe regel 
begonnen. 

Alvast een voorbeeld van een toepassing van MESSY, De subroutines 
JUNIOR/EDITOR/ASSEM van figuur 9b. Er zijn nog veel meer toe- 
passingen; zie verderop in dit hoofdstuk. U ziet dat eerst Y een bepaalde 
waarde krijgt toegekend. Dan volgt het beroep op MESSY (“JUNIOR 
LEDITOR'' of "ASSEMBLER"') en tot slot zorgt een CRLF ervoor dat er 
na een boodschap altijd (te zijner tijd) nieuw drukwerk volgt vanaf het 
begin van de volgende regel. N.B. De subroutine EDITOR en ASSEM 
worden niet gebruikt bij PM. | 


1 De subroutines CRLF en PRSP van figuur 10 worden buitengewoon 
vaak toegepast. Dat is niet verwonderlijk, want het gaat om gra- 
fische subroutines, die iets te maken hebben met de vormgeving en de 
overzichtelijkheid van het af te lezen drukwerk. De bespreking van de sub- 
routines is een fluitje van een cent. 
Het is een kwestie van het laden van de accu met de ASCIHI-kode van het 
raf te drukken’ grafische kommando en vervolgens het “'afdrukken” van 
dat kommando (PRCHA). Voor het kommando CR (Carriage Return; 
terug naar het begin van dezelfde regel) geldt de ASCII-kode GA en voor 
het kommando LF (Line Feed; ga door naar dezelfde positie op de 
volgende regel) geldt een ASClIl-kode GA. Het afdrukken van een spatie 
(PRSP) gaat ook al heel eenvoudig: laad de accu met de ASCI-kode, 20, 
en spring naar het tabel CLEND, dus druk die spatie af. 


1 De subroutine HEXNUM (figuur 11) speelt een sleutelrol bij het 

vaststellen of een naar de junior-computer verzonden ASCII- 
karakter hoort bij een ingedrukte numerieke toets of niet. Gaat het inder- 
daad om de opgave, via het toetsenbord, van numerieke data, dan wordt 
deze data na het vertalen uit de ASCII-kode verwerkt in de inhoud van de 
databuffers INL en INH. Is dat echter niet het geval, dan volgt de terug- 
melding “WHAT?” (vrij vertaald: ‘wat krijgen we noul!?). Voordat we 
HEXNUM in detail gaan bespreken volgt het verhaal over de subroutine 
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LDA IM S@D LDAIM S2g 
JSR PRCHA JMP CLEND 
LDAIM SOA | 
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Figuur 10. De subroutines CRLF (toekomstig drukwerk vanaf het begin van de 
volgende regel) en PRSP (druk een spatie, dus niets af). Het effekt van PRSP is de 
verplaatsing, één positie naar rechts of naar het begin van de volgende regel, van de 
"“schrijfwijzer” ("'cursor”'), respektievelijk de wagen ("'carriage’’). 


ASHETT van figuur 12, die vaststelt of we wel met numerieke data hebben 
te doen en zo ja uit de ASCII-kode de data destilleert. 

Dus nu eerst figuur 12. We gaan ervan uit dat de ASCIHl-kode in de accu 
staat. Er geldt dat ASClIl-kodes 39...39 (toetsen @...9) en ASCII- 
kodes 41 ...46 (toetsen A...F) geldig zijn; alle andere ASCIl-kodes 
horen bij iets dat als een ongeldig karakter zal worden beschouwd. In 
ASHETT vindt de splitsing tussen geldig en ongeldig plaats via vier, elkaar 
opeenvolgende compare-instrukties en vier daarop aansluitende instrukties 
BMI. Er ontstaat een soort filterwerking. Nadat een ongeldig karakter 
(dus een niet-numeriek karakter) is vastgesteld volgt een RTS, waarbij de 
N-vlag één is en dus de Z-vlag nul. De ASCII-kode van een geldig karakter 
moet eerst nog worden vertaald in het overeenkomende datanibble. Dat 
gebeurt in ASHETT na het label VALIT. 

Voor data @P... 99 kan men het vertalen uitvoeren door domweg het 
linker nibble van de accu-inhoud nul te maken (AND # GF). Voor data 
GA...GF moet men echter eerst nog G9 bij de accu-inhoud optellen. 
Omdat na de terugkeer uit ASHETT bij een geldig karakter het linker 
nibble van de accu-inhoud nul is en het rechter nibble altijd ongelijk aan 
nul, zijn zowel de N-vlag als de Z-vlag tijdens de afsluitende RTS nul. 

En dan nu HEXNUM. Figuur 11 dus. Die begint met ASHETT (figuur 12) 
en vervolgens een BMI. Een ongeldig, niet numeriek ASCIl-karakter voert 
ons naar het label HNUM. Er gebeuren dan allerlei dingen die te maken 
hebben met de foutmelding ”“WHAT?”. Eerst krijgt Y de passende waarde 
A6. Vervolgens wordt er een beroep gedaan op de subroutine MESSY (zie 
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Figuur 11. De subroutine HEXNUM, voor het verwerken van een met een ingedrukte 
numerieke toets overeenkomend datanibble in de inhoud van de databuffers INH en 
INL. 


punt 11 en figuur 9a). Na “WHAT?” komt nieuw drukwerk, te zijner tijd, 

te staan op het begin van de volgende regel (CRLF). Vóór de RTS krijgt Y 

de waarde FF. De N-vlag is dus één en de Z-vlag nul. 

Als er een geldig, dus numeriek ASCIl-karakter is vastgesteld wordt het 

overeenkomstige datanibble “bijgezet” in de databuffers INL en INH. Dat 

gaat via het vier keer achter elkaar naar links schuiven en linksom draaien 

van de bits van INL en INH. De manier waarop dat gebeurt is identiek aan 

soortgelijke operaties in de software van de standaard-EPROM. Zie boek 2, 

Daarom volstaan we hier en nu met een korte samenvatting: 

@ Het rechter nibble van INL is gelijk aan het zojuist ontvangen data- 
nibble. 

® Het linker nibble van INL is gelijk aan het voormalige rechter nibble 
van INL. 
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Figuur 12. De subroutine ASHETT wordt in HEXNUM (figuur 11) aangeroepen. 
Deze gaat na of er sprake is van een ingedrukte toets O...F of niet. In het laatste 
geval leidt dit in HEXNUM tot de terugmelding ”WHAT?". \ 


© Het rechter nibble van INH is gelijk aan het voormalige linker nibble 


van INL. 


© Het linker nibble van INH is gelijk aan het voormalige rechter nibble 


van INH. 


© Het voormalige linker nibble van INH is weg (in groenteveilingtermen: 


is doorgedraaid’). 
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Met andere woorden: de inhoud van INH en INL is altijd in overeenstem- 
ming met de laatste vier ingedrukte numerieke toetsen, tenzij de buffers 
tussentijds zijn gereset (subroutine RESIN, zie punt 14). Indien HEXNUM 
minder dan vier keer achter elkaar wordt aangeroepen, dus bijvoorbeeld 
x keer, dan zijn de linker (4-x) nibbles van (INH, INL) nul. 

Vlak voor de afsluitende RTS (linksonder in figuur 11) krijgt Y de waarde 
DP toegekend. Dit heeft tot gevolg dat de Z-vlag één wordt en de N-vlag 
nul; precies het tegenovergestelde van de situatie na een ongeldig ASCII- 
karakter (de rechter RTS in figuur 11). 


J. De hoofdroutine van PM en de resterende PM-subroutines zullen nu 
worden besproken. Het gedetailleerde stroomdiagram van de PM- 
hoofdroutine staat in de figuren 13a, 13b en 13c. Het centrale punt is het 
label RESALL, tinksboven in figuur 13a. Na dit label worden de sub- 
routines RESPAR (figuur 14a) en RESIN (figuur 14b) uitgevoerd. In 
RESPAR worden de twee adresbuffers PARA en PARB (beide 16 bits) nul 
gemaakt. In RESIN gebeurt hetzelfde, maar dan voor de databuffers INH 
en INL. Dit nul maken vindt plaats zodra de inhoud van deze buffers niet 
meer nodig is, na het afwerken van een bepaalde toetsaktie. Het nu vol- 
gende label READCH is óók een soort centraal punt van de PM-hoofd- 
routine, namelijk in het geval van dataverwerking (bijvoorbeeld de opgave 
van een werkadres of werkdata). Direkt na het label READCH springt PM 
naar de subroutine RECCHA: er wordt (opnieuw) gewacht op een inge- 
drukte toets. Vervolgens houdt de PM-hoofdroutine zich bezig met het af- 
checken van de mogelijkheden: Is het toets X? Zo ja: voer de X-toets- 
routine uit. Zo nee: is het soms toets Y? Zo ja: voer de Y-toetsroutine uit. 
Zo nee: Ga na of het soms toets Z is, enzovoorts. 
N.B. De centrale labels RESALL (buffers nul maken) en READCH (vast- 
stellen ingedrukte toets) worden niet tussentijds “bezocht tijdens de 
uitvoering van een toetsroutine die hoort bij de toetsfunkties M‚G en S. 
Bij deze toetsroutines maakt het wachten op een ingedrukte toets (opgave 
parameters) deel uit van die toetsroutine. Met andere woorden: de sub- 
routine RECCHA wordt ook elders in PM gebruikt en dus niet uitsluitend 
na het label READCH. 


| Eerst maar eens de plustoetsroutine. Dus de instrukties van figuur 
13a direkt na het label PLU. U weet van hoofdstuk 12 dat het 
werkadres met één moet worden verhoogd en dat dit nieuwe werkadres 
mèt data op een nieuwe regel moet worden afgedrukt. En dat gebéurt er 
ook. Eerst volgt de sprong naar de subroutine INCPNT van figuur 15a. Het 
werkadres wordt aangewezen door de adreswijzer (POINTH, POINTL). 
Het met één ophogen van deze adreswijzer (INCPNT, figuur 15a) gebeurt 
via een inmiddels wèlbekende metode. Na de verhoging van de adreswijzer 
volgt het afdrukken van het nieuwe werkadres plus data (subroutine 
PRBUFS; zie punt 10 en figuur 8). Rest de gang terug naar RESALL. 


16 Dan de mintoetsroutine. Dat zijn de instrukties van figuur13a die 
direkt volgen op het label MINUS. Het werkadres moet met één 
worden verlaagd; het nieuwe werkadres moet mèt data op een nieuwe 
regel worden afgedrukt. Het gaat bijna net zo als bij de plustoetsroutine 
lees verder op pagina 89 ‘ 
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Figuur 13. De PM-hoofdroutine, verdeeld over de figuren 13a, 13b en 13c. In verband 


met het aantal instrukties is de M-toetsroutine ín een aparte figuur, figuur 17a/17b, 
getekend. 
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Figuur 14. De subroutine RESPAR (figuur 14a) zorgt ervoor dat de inhoud van de 
adresbuffers PARAH en PARAL voor het eerste adres nul wordt, evenals de inhoud 
van de adresbuffers PARBH en PARBL voor het laatste adres. De subroutine RESIN 
(figuur 14b) levert als eindresultaat een inhoud nul op van de databuffers INH en 


INL. 
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Figuur 15. De subroutine INCPNT (figuur 15a) levert een verhoging met één op van 
de adreswijzer POINT; de subroutine DECPNT (figuur 15b) levert daarentegen een 
verlaging met één op. 
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van punt 15. Bijna, omdat nu niet INCPNT , maar de subroutine DECPNT 
van figuur 15b wordt aangeroepen: de adreswijzer (POINTH, POINT L) 
wordt nu met één verlaagd. Verder alles van hetzelfde laken een pak. 


1'7 De spatietoetsroutine bestaat uit de instrukties van figuur 13a die 

direkt volgen op het label SPACE. Het gaat om de opgave van een 
werkadres, dat wordt afgedrukt. De adresdata is vooraf via het indrukken 
van één à vier numerieke toetsen opgegeven en staat in de databuffers INL 
en INH. Er wordt begonnen met het kopiëren van INL in POINTL (rechter 
werkadresbyte) en van INH in POINTH (linker werkadresbyte). Het werk- 
adres ligt vast en kan worden afgedrukt; dus moet er een beroep worden 
gedaan op de subroutine PRBUFS van figuur 8 en punt 10. En dan zijn we 
klaar: terug naar RESALL. 


18 De punttoetsroutine bestaat uit de instrukties van figuur 13a die 
direkt volgen op het label PNT. Er moet data worden geladen op 
een werkadres dat vooraf vastligt; hetzij via de spatietoets, hetzij via de 
plus- of mintoets. Het begint met het laden van de accu met de inhoud 
van de databuffer INL; INH is nu niet nodig omdat het om één databyte 
gaat, dus om nul (data @9!), één of twee achter elkaar ingedrukte nume- 
rieke toetsen. Drukt men achter elkaar meer dan twee numerieke toetsen 
in, dan geldt als werkdata de data die hoort bij de twee meest recente 
numerieke toetsen. Nadat de werkdata in de accu is gezet gaat de accu- 
inhoud via de instruktie STA-(POINTL),Y naar de bij het werkadres 
horende geheugenplaats. Daarna verhogen we het werkadres met één 
(INCPNT) en drukken dit werkadres met data af (PRBUFS). Dit als voor- 
bereiding voor de volgende opgave van werkdata. En dan zijn we klaar. 


19 De R-toetsroutine (alle instrukties direkt na het label RUN in 
figuur 13a) is exakt gelijk aan de toetsroutine die hoort bij de 
GO-toets van de standaard-monitor. Zie figuur 4a op pagina 99 van boek 2. 
Alle registers krijgen de inhoud terug die ze hadden tijdens de meest 
recente sprong naar PM (STEP-ingang, zie figuur 1b). De afsluitende RTI 
van de R-toetsroutine zorgt ervoor dat er een programma wordt uitgevoerd 
waarvan het startadres gelijk is aan (PCH, PCL), òf dat, in het stap-voor- 
stapgeval, de volgende instruktie wordt uitgevoerd. De opcode van die 
instruktie bevindt zich op het adres (PCH, PCL). (PC: Program Counter: 
wât staat er op het programma?) 


) Voordat het zover is dat de L-toetsroutine kan worden besproken 
gaan we het eerst hebben over een daarbij gebruikte speciale 
subroutine, namelijk de subroutine SHOWPR van figuur 16. Hij zorgt 
ervoor dat de inhoud van het P-register bit voor bit wordt afgedrukt. 
Figuur 16 begint met het kopiëren van de geheugenplaats PREG (dat is 
het P-register: de vlaggenbewaarplaats) in de geheugenplaats PRTEMP, 
Verder krijgt het als bitteller gebruikte X-register de beginwaarde @8. De 
positie van de diverse vlaggen in PREG (èn in PRTEMP, althans in het 
begin) kan men vinden in het plaatje van het software-dashboard van de 
junior-computer; dat is figuur 1b op pagina 61 van boek 1. | 
Na het label SPRA van SHOWPR wordt er acht keer achter elkaar via de 
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Figuur 16. De subroutine SHOWPR wordt in een bepaalde fase van de L-toetsroutine 
aangeroepen en zorgt ervoor dat de inhoud van het P-register bit voor bit, dus dat alle 
vlaggen stuk voor stuk en in de juiste volgorde, worden afgedrukt. 


81913 16 


instruktie ASL-PRTEMP het zevende bit van PRTEMP de carry inge- 
schoven. Afhankelijk van de vraag of die carry één of nul is wordt er een 1 
of een ® afgedrukt (PRNIBL; zie punt9 en figuur 7a, onderste helft). 
Daarna volgt de voorbereiding voor het volgende bit. Tenminste: als er nog 
een volgend bit is (BNE staat op springen). 

Een overzicht: 

X = @8: N-vlag afgedrukt; 

X =@7: V-vlag afgedrukt; 

X = 06: willekeurig bit afgedrukt; 

X = 05: BRK-vlag afgedrukt; 

X = @4: D-vlag afgedrukt; 

X = 03: l-vlag afgedrukt; 

X =02: Z-vlag afgedrukt; 

X = @1: C-vlag afgedrukt. 
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Het is de taak van de L-toetsroutine om de inhoud van het 
J software-dashboard van de junior-computer in overzichtelijke 
vorm af te drukken. De L-toetsroutine omvat een hele reeks instrukties, 
waaronder zeer veel sprongen naar grafische subroutines, die in de linker 
helft van figuur 13b direkt volgen op het label LIST. De bespreking van 
deze subroutine is vrij gauw gebeurd indien we er een praktijkvoorbeeld 
van de L-toetsfunktie (hoofdstuk 12 van boek 3) bijnemen. De in een 
bepaalde fase afgedrukte tekst staat tussen aanhalingstekens. De aan- 
halingstekens zèlf worden niet afgedrukt! Ook het afdrukken van een 
spatie is in figuur 13b aangegeven. Alle in de L-toetsroutine gebruikte 
subroutines zijn al eerder besproken: MESSY in punt 11, PRBYT in 
punt 9, SHOWPR zojuist, in punt 20 en PRSP in punt 12. 


De De P-toetsroutine bestaat uit de zes instrukties direkt na het label 
PC in figuur 13b. Het indrukken van de P-toets heeft tot gevolg 
dat het werkadres gelijk wordt gemaakt aan de inhoud van de programma- 
teller, dus (PCH, PCL) en vervolgens wordt afgedrukt. Het betreft de 
inhoud van de programmateller PC vlak voor de meest recente sprong naar 
PM via de STEP-ingang (zie punt 7). De funktie van de P-toets van PM is 
exakt gelijk aan de funktie van de PC-toets van de standaard-monitor. De 
toetsroutine is gauw verteld: de inhoud van de geheugenplaatsen PCL en 
PCH wordt gekopieerd in POINTL respektievelijk POINTH. Het aldus 
ontstane nieuwe werkadres wordt afgedrukt (PRBUFS). 


J De M-toetsroutine verzorgt de uitvoering van een hex dump. Deze 
toetsroutine bestaat uit een relatief groot aantal instrukties, vanaf 
het label MATRIX van figuur 13b. Zoveel zelfs dat er in twee helften een 
aparte figuur voor is uitgetrokken: figuur 17a/17b. Het gemeenschap- 
pelijke punt van figuur 13b en figuur 1 7a is het koppelpunt D. 
Linksboven in figuur 17a begint de hex dump met de terugmelding, via 
MESSY, met de tekst "”HEXDUMP:". En dan zijn we toe aan de sub- 
routine INPAR, die we nu eerst zullen bespreken. (Vervolg M-toetsroutine 
in punt 25.) 


IÀ (intermezzo) 

De subroutine INPAR van figuur 18 speelt geheel danwel gedeel- 
telijk (alles na het label IPB) een rol bij de toetsroutines van de toetsen 
M, G en S. Dat zijn de toetsen met een geparametriseerde toetsfunktie: 
U weet nog wel van hoofdstuk 12: die toestanden met één of twee 
komma's, data en de CR-toets. De subroutine INPAR regelt de gang van 
zaken bij het opgeven van de parameters: 


opgave,data-kommatoets — opgave data-toets CR. 
eerste adres laatste adres 
of [D 


Figuur 18 begint met het wachten op een ingedrukte toets: de subroutine 
RECCHA. Dan volgt de vraag: is het een kommatoets? Zo nee, dan moet 
het om de opgave van geldige (numerieke toetsen) of ongeldige data gaan 
(alle andere toetsen met uitzondering van “)_ De subroutine HEXNUM 
(zie punt 13 en figuur 11) zorgt voor de verwerking van geldige data 
D...F inde databuffers INL en INH. 
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Figuur 17. Op de eerste twee instrukties na (zie dáárvoor figuur 13b) alle instrukties 
van de M-toetsroutine, in de vorm van de figuren 17aen 17b. 


92 


%X 17 bh Ei) (figuur 174) 
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Zodra de kommatoets is ingedrukt (label HPA in figuur 18) is de opgave 
van de eerste data afgesloten. Die data gaat naar de adresbuffers PARAL 
en PARAH voor het eerste adres. Dat eerste adres kan het eerste adres zijn 
met de als eerste af te drukken geheugeninhoud in het geval van een hex 
dump (zie punt 25), of het eerste adres van een naar de cassetteband te 
versturen datazending (subroutine SAID; zie punt 28). Vervolgens worden 
de databuffers INH en INL nul gemaakt (RESIN). 
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Figuur 18. De su 
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broutine INPAR speelt een belangrijke rol bij de toetsroutines van 


de toetsen M,G en S, dus de toetsen met een geparametriseerde toetsfu nktie. In 
sommige gevallen wordt alleen het tweede gedeelte, vanaf het label IPB, doorlopen. 
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We zijn toe aan label [PB in figuur 18. Er wordt alweer gewacht op een 
ingedrukte toets (RECCHA). Vervolgens rijst de vraag: is het toets CR? 
Dus is alle data opgegeven? Zo niet, dan ging het kennelijk nog om data en 
het hele verhaal van twee alinea's geleden herhaalt zich. Was het daaren- 
tegen wel dégelijk de CR-toets, dan is de opgave van de tweede data vol- 
tooid (label IPC). Die tweede data gaat naar de adresbuffers PARBL en 
PARBH voor het laatste adres. Nu worden de buffers INH en INL niet 
nul gemaakt. Dit in tegenstelling tot de situatie na het vaststellen van een 
komma. Ter afsluiting van INPAR krijgt Y een waarde nul. Daardoor is 
de Z-vlag 1 en de N-vlag nul geworden. 


5 (vervolg M-toetsroutine: terug naar figuur 17a) Na de terugkeer 
uit INPAR (punt 24) bepaalt de N-vlag (BPL) hoe het verder 
moet. Is er tijdens INPAR ongeldige data opgegeven (inklusief het indruk- 
ken van een niet ter zake doende, niet-numerieke toets), dan volgt de gang 
naar het label MATD en daarmee naar het label LABJUN (figuur 1b). Na 
de terugmelding ''JUNIOR"' komen we dan bij het centrale label RESALL 
van de PM-hoofdroutine terecht om het opnieuw te proberen, te beginnen 
met het indrukken van toets M. Was evenwel tot nu toe alles in orde, dan 
volgt de sprong naar het label MATF. Uit de daarop volgende instrukties 
kan blijken dat een en ander niet meer in orde is. Want van het 16-bits 
getal, gevormd door (PARAH, PARAL), wordt het 16-bits getal, gevormd 
door (PARBH, PARBL), afgetrokken. Is het resultaat negatief, dus is de 
carryvlag nul, dan volgt alsnog de sprong, via MATD, naar LABJUN voor 
de foutmelding "JUNIOR". Waarom? Omdat het laatste adres (PARB) 
nooit lager mag zijn dan het eerste adres (PARA). Zowel bij een hex 
dump als bij het schrijven op de band van een datazending (toets S; zie 
punt 28). 

Zit het goed met die adressen (C = G), dan kan met het afdrukken van de 
hex dump worden begonnen. De instrukties tussen de labels MATG en 
MATH van figuur 17a zorgen ervoor dat er achter elkaar zes spaties wor- 
den afgedrukt vanaf het begin van een nieuwe regel. Waarom dat moet kan 
men het beste nagaan aan de hand van een praktijkvoorbeeld van een hex 
dump. 

Na de spaties volgt het afdrukken van de nummers g...F boven de 
kolommen van de hex dump. Tussen twee opeenvolgende nummers zitten 
twee spaties. Het slot van figuur 17a bestaat uit het gelijk maken van de 
inhoud van de buffers voor het werkadres (POINTH, POINTL) aan de 
inhoud van de buffers voor het eerste adres (PARAH, PARAL). De eerste 
helft van de M-toetsroutine zit erop. 


IG We gaan verder met de tweede helft van de M-toetsroutine. Dus 
met figuur 17b. Na het labet MATJ beginnen we op een nieuwe 
regel (CRLF); we zijn dus toe aan het afdrukken van het adres dat hoort 
bij de geheugenplaats waarvan de inhoud als eerste op een bepaalde rij van 
de hex dump wordt afgedrukt. De eerste data van de eerste rij van de hex 
dump bevindt zich op het adres (PARAH, PARAL) waaraan de inhoud van 
(POINTH, POINTL) gelijk is tijdens de allereerste passage van het label 
MATJ. 

Dus direkt na MATJ wordt op het begin van een nieuwe regel het adres 
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afgedrukt met de eerste, meest linkse, data van de rij. Na het afdrukken 
van het adres volgt de afdruk van een dubbele punt en een spatie. De sub- 
routine ME is gelijk aan de subroutine MESSY, op de eerste CRLF na. Zie 
figuur 9a en punt 11. Verder wordt in het X-register — dat de beginwaarde 
19 krijgt — het aantal eventueel nog af te drukken data van een rij van de 
hex dump bijgehouden. 

De instrukties na het label MATK houden zich bezig met de kontrole of 
alle data van de hex dump al is afgedrukt. De grootte van de data-adres- 
wijzer POINT ten opzichte van het laatste adres (in PARB) van de 
hexdump is daarvoor maatgevend. Uiteindelijk vertelt de carryvlag ons hoe 
het ermee staat. Is het adres POINT nog niet boven PARB uitgestegen, dan 
(label MATL) wordt de af te drukken data opgehaald en vervolgens afge- 
drukt. Daarna komt er nog een spatie (PRSP) en verhogen we POINT 
(subroutine INCPNT; zie punt 15 en figuur 15a) en verlagen we X, ter 
voorbereiding van een volgende data-afdruk. Of dat op een nieuwe of op 
nog steeds dezelfde regel gebeurt bepaalt de toestand van de Z-vlag (BNE, 
BEQ). En of er nog wat aan data af te drukken valt blijkt direkt na het 
label MATK, dat direkt wordt bereikt (oude regel; BNE op springen) of 
na het afwerken van de instrukties na het label MATJ (nieuwe regel; BEO 
op springen). 

Zodra alle data is afgedrukt volgt er de sprong naar het begin van een 
nieuwe regel en de sprong naar het label LABJUN: de terugmelding 
” JUNIOR”, als afsluiting van de hex dump. Omdat vlak voor de sprong 
naar LABJUN de subroutine CRLF wordt aangeroepen en omdat de 
terugmelding “JUNIOR” eveneens op het begin van een nieuwe regel 
plaatsvindt (zie de subroutines MESSY en JUNIOR) wordt er een blanko 
regel afgedrukt tussen de laatste regel van de hex dump en de tekst 
“JUNIORS. 

N.B. Indien de hoeveelheid af te drukken data een veelvoud van zestien is, 
dus indien de hex dump uitsluitend volle regels bevat, wordt desondanks 
na de laatste rij van de hex dump het adres afgedrukt dat hoort bij de 
volgende rij (waarvoor geen af te drukken data beschikbaar is). Dit volgt 
uit de gang van zaken na het label MATL in figuur 17b. Zodra er op een 
nieuwe regel moet worden begonnen — nog niet “wetend” dat er niets 
meer is af te drukken want dat blijkt pas na MATK — volgt er via de BEQ 
de sprong naar MATJ, voor het afdrukken van een nieuw rij-adres. 


) Bij de bespreking van de G-toetsroutine kunnen we figuur 13b 

verlaten en zijn we aan de derde partij instrukties van de PM- 
hoofdroutine toe: figuur 13c. De G-toetsroutine omvat de instrukties 
die in figuur 13c direkt volgen op het label GETTAP. Het meeste werk 
van deze toetsroutine wordt verricht in de subroutine GETID van figuur 
19a. Die subroutine zullen we nu eerst bespreken. Direkt na het label 
GETID (figuur 19a) volgt de sprong naar de subroutine IPB. Dat is geen 
nieuwe subroutine maar het laatste deel van de subroutine INPAR van 
figuur 18 en punt 24. Bij het ophalen van een datazending van de band 
moet er behalve het indrukken van toets G data worden opgegeven (name- 
lijk het programmanummer ID) en vervolgens de CR-toets worden inge- 
drukt (het geval ID = FF komt zometeen aan de orde). Na afloop van IPB, 
dus na afloop van INPAR vertelt de N-vlag of het allemaal volgens de regels 
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is gegaan of niet. Een direkt op JSR-IPB volgende BMI leidt dan ook 
meteen naar AF (label GA in figuur 19a) met een N-vlag één als er gezon- 
digd is tegen de regels voor het afwerken van de G-toetsceremonie. 

In het geval van geldige data, dus een korrekt opgegeven ID, gaat de 
inhoud van de accu naar de geheugenplaats |D (zie hoofdstuk 16). Vlak 
voor het verlaten van IPB, namelijk na het label IPC en vlak voor de RTS, 
is de inhoud van de accu gelijk aan de inhoud van de rechter databuffer 
INL. Overigens: de subroutine IPB wordt pas verlaten (zondigen tegen 
de regels daargelaten) zodra de CR-toets is ingedrukt. 

Is het zojuist ingelezen programmanummer |D gelijk aan FF, dan moet er 
door de gebruiker nog een startadres SA worden opgegeven: de instrukties 
van figuur 19a direkt na het label IDPAR. Na de terugmelding “SA: volgt 
via het voorstukje IPBRES van figuur 19c opnieuw de sprong naar IPB, dus 
het laatste deel van INPAR, voor het ophalen van data (SA) en het wach- 
ten op de ingedrukte CR-toets. De omweg via IPBRES is nodig om de 
databuffers INL en INH nul te maken. Het had ook anders gekund: spring 
naar de instruktie JSR-RESIN, direkt vóór het label IPB in figuur 18. 

In het geval dat na de tweede sprong naar (PB alles korrekt is verlopen 
wordt de inhoud van INH en INL gekopieerd in de geheugenplaatsen 
SAH respektievelijk SAL (zie hoofdstuk 16). De sprong naar het label GB 
vindt alsnog plaats. Het eigenlijke inlezen van de cassette-band kan begin- 
nen. De subroutine RDTAPE komt uitgebreid aan de orde in hoofdstuk 
16. De I/O is tijdens RDTAPE anders gedefinieerd dan tijdens PM; dat 
gebeurt aan het begin van die subroutine. Vandaar dat direkt na RDTAPE 
de subroutine RESTTY van figuur 19b volgt; de 1/O krijgt hetzelfde aan- 
zien als in figuur 1a. Rest nog de terugmelding "READY" en het één 
maken van de Z-vlag (N-vlag is nul). Tot slot van figuur 19a volgt de 
gebruikelijke RTS. Tot zover GETID. 

Terug naar de G-toetsroutine. Dus terug naar figuur 13c. Indien GETID 
werd verlaten met een N-vlag 1, dan volgt de sprong, via het label 
GETERR, naar het label LABJUN, voor de foutmelding "JUNIOR". 
Een N-vlag nul daarentegen betekent dat alles volgens het boekje (deel 3) 
is gegaan; we gaan dan terug naar het centrale punt RESALL van de PM- 
hoofdroutine. 


2 De S-toetsroutine bestaat uit de handvol instrukties die in figuur 
13c direkt volgen op het label SAVID. Ook nu wordt het leeuwe- 

deel van het werk verricht in de subroutine SAID van figuur 20, die we nu 

eerst zullen bespreken. De parametertoestanden bij de S-toets zien er als 

volgt uit: 

Toets S — eerste data — komma — tweede data — komma — derde data — 

toets CR, waarbij 

de eerste dataeen ID 91... FE voorstelt; 

de tweede data het beginadres SA voorstelt, en 

de derde data het eindadres EA = LA + 1 (zie hoofdstuk 11). 

De subroutine SAID begint met de vraag of de kommatoets is ingedrukt. 

Zo niet, dan was de opgave van de eerste data kennelijk nog niet voltooid. 

Dan is HEXNUM aan bod: geldige numerieke data wordt verwerkt in de 

databuffers INH en INL; ongeldige data levert een sprong naar het label 

SIB op, waarbij de N-vlag één is en de Z-vlag nul. Zodra de kommatoets 
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Figuur 19. De subroutine GETID vormt het leeuwedeel van de G-toetsroutine (figuur 
19a). De subroutine RESTTY (figuur 19b) herstelt de 1/0, zoals voor PM in figuur 1a 
vastgelegd, nadat de cassette-subroutine RDTAPE of DUMP (zie figuur 20} is door- 
lopen. In een bepaalde fase van GETID wordt via het stukje programma IPBRES 
(figuur 19c) naar de tweede helft van INPAR (figuur 18) gesprongen. 
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is ingedrukt volgt de sprong naar het label SIC (sic!). De inhoud van INL 
gaat naar ID en er wordt gekeken of er soms — geheel tegen de regels — 
een 1D GP of FF is opgegeven. Want dan gaat het linea recta naar de fout- 
uitgang SIA, met een N-vlag één en een Z-vlag nul. 

Voor het verwerken van de tweede en derde data en de afsluitende CR 
kunnen we vervolgens een beroep doen op de subroutine INPAR, die we in 
figuur 18 vinden en die is besproken in punt 24. Wèl worden eerst nog 
even de databuffers nul gemaakt (RESIN). 

Zodra de CR-toets is ingedrukt kunnen we met de eigenlijke datazending 
naar de cassetteband beginnen. De SA-buffers SAH en SAL krijgen de 
inhoud toegewezen van de buffers PARAH en PARAL voor het eerste 
adres. Evenzo krijgen de EA-buffers EAH en EAL de inhoud toegewezen 
van de buffers PARBH en PARBL voor het laatste adres. En dan kunnen 
we een geheel verzorgde datareis naar de cassette-band genieten. De sub- 
routine DUMP is in detail in hoofdstuk 16 besproken. Net als bij RDTAPE 
(punt 27) is de I/O tijdens DUMP afwijkend van de situatie tijdens PM. 
Dat gebeurt aan het begin van DUMP. Vandaar dat ook nu na afloop van 
DUMP een beroep wordt gedaan op de subroutine RESTTY van figuur 
19b. 

Het slot van het liedje is de terugmelding '"READY"', en verder het nul 
maken van Y; de N-vlag is nul en de Z-vlag 1. 

Terug naar de S-toetsroutine van figuur 13c. Na afloop van SAID laat de 
N-vlag zien of het allemaal korrekt is verlopen of niet. Zo ja, terug naar 
het centrale label van PM, dus naar RESALL. Zo niet: via GETERR naar 
LABJUN, voor de melding "JUNIOR!, die in dit geval het karakter van 
een foutmelding heeft. 


) Tot slot van de PM-hoofdroutine hebben we dan nog de datatoets- 

routine. Het gaat om de instrukties die in figuur 13c volgen op 
het label VALNUM. In de PM-hoofdroutine bevinden we ons nu in een 
fase waarin alle ingedrukte toetsen die voor PM een betekenis hebben zijn 
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LDA PARBL 
STA EAL 


LDA PARBH 
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JSR DUMP 
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Ĳ 
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SR 
LDYIM $4C 

JSR _MESSY 

JSR _CRLF “"READY" 
LDYIM $94 
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Figuur 20. De subroutine SAID vormt het leeuwedeel van de S-toetsroutine. Hij 
omvat ondermeer de sprong naar de TM-subroutine DUMP, voor het op de cassette- 
band schrijven van een datazending. 
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""yitgefilterd’”. Dus achtereenvolgens de toetsen: 

+ (punt 15) 

— (punt 16) 

SP (punt 17) 

ve (punt 18) 

R (punt 19) 

L (punt21) 

M (punten 23, 25 en 26) 

G (punt 27) 

S (punt 28) 

Alle andere, nog niet genoemde toetsen zijn nu nog niet uitgefilterd. Het 
kan gaan om niet-numerieke toetsen — die hoogstwaarschijnlijk per ongeluk 
zijn ingedrukt — df om ingedrukte numerieke toetsen. In het laatste geval 
gaat het om data die hoort bij de opgave van een werkadres of bij de 
opgave van werkdata. Want de data die hoort bij de toetsroutines van de 
geparametriseerde toetsfunkties M‚G en S wordt niet behandeld via de 
RECCHA in de centrale RESALL-R EADCH-lus van PM. 

Voor het verwerken van numerieke data is er de subroutine HEXNUM van 
figuur 11. Deze is besproken in punt 13. Tijdens het verblijf in HEXNUM 
worden alle resterende niet-numerieke toetsen eruit gesmeten via de fout- 
melding “WHAT?”. In dat geval volgt de sprong naar het label VNA en 
daarmee de sprong terug naar het centrale PM-label RESALL. In het geval 
van een numerieke toets wordt het met deze toets overeenkomende data- 
nibble verwerkt in de databuffers INH en INL. Na afloop volgt de sprong 
naar het label READCH; zie figuur 13a. Nu worden de buffers INH en INL 
niet nul gemaakt (RESIN, direkt na het label RESALL) omdat de opgave 
van data nog niet voltooid hoeft te zijn. 


Hiermee is alle PM-software besproken. Rest nog een aanvullende opmer- 
king over het BRK-toets-gebeuren. 


30 Zoals eerder opgemerkt (zie hoofdstuk 12 van boek 3 en punt 8) 
sorteert het indrukken van de BRK-toets uitsluitend effekt tijdens 
het afdrukken, door de junior-computer, van het een en ander. Daarbij is 
altijd de elementaire afdruk-subroutine PRCHA betrokken. | 
Men kan echter in de praktijk vaststellen dat bij PM óók tijdens het 
wachten op een ingedrukte toets (RECCHA) het indrukken van de BRK- 
toets tot de terugmelding "JUNIOR" leidt, net zo als in het geval van het 
onderbreken van drukwerk (label LABJUN in figuur 1b; zie ook punt 1 en 
punt 6). 

Hoe zit dat? 

Dat zit zó: 

Indien gedurende tenminste negen opeenvolgende bittijden de BRK-toets 
is ingedrukt wordt er in feite de ASCIl-kode @$ verzonden. Aan die kode 
heeft de junior-computer geen boodschap, dus volgt de terugmelding 
ImNHAT”?. Althans, dat is de bedoeling. Want zodra begonnen is met 
het afdrukken van deze boodschap komt de nog steeds ingedrukte BRK- 
toets aan het licht en ontstaat er, zoals eerder beschreven, de terugmelding 
” JUNIOR”. Dàt gebeurt echter pas nadat de BRK-toets is losgelaten. 
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19 
766 bytes PME-software 


Hoe gaat het editen op tv in zijn werk? 


In hoofdstuk 13 heeft u leren omgaan met de nieuwe editor, 
PME. U heeft als het ware leren rijden met PME en in dit hoofd- 
stuk gunnen we u een uitgebreide blik onder de motorkap. De 
byte-voor-byte-kennis van PME verschaft u inzicht in de aardig- 
heden en eigenaardigheden van dit systeemprogramma. Het 
programma is voor een deel gebaseerd op bestaande subroutines. 
Dat neemt niet weg dat er óók nieuwe subroutines zijn 
"geboren". En die subroutines zijn uitstekend bruikbaar voor 
ego-software. 

Ofschoon de bespreking van PME, gezien het aantal bytes, 
aanzienlijk minder ruimte vergt dan de bespreking van de andere 
software in dit boek is ook in dit hoofdstuk gekozen voor een 
korte maar krachtige punt-voor-punt-behandeling. Trouwens: 
dat "kort maar krachtig’’ sluit uitstekend aan bij de filosofie van 
het programma PME. 


We beginnen maar eens met een algemeen overzicht van PME. Dus 

met een soort blokschema; het “programma van het programma” 
en tevens het programma van dit hoofdstuk. Het blokschema staat in 
figuur 1. 
De struktuur van PME ziet er als volgt uit: Een hoofdroutine wordt vooraf- 
gegaan door een incidenteel, af en toe doorlopen voorroutine. Zoals een 
rivier ontstaat (stroomdiagram!) uit de samenvloeiing van een aantal 
kleinere rivieren en beken, zo kent de voorroutine van PME een drietal 
verschillende oorsprongen, die overeenkomen met de koude, de lauwe en 
de warme CEND-startroutine. Een vierde “zijrivier”, namelijk de routine 
na het label ASSEND, moet men eigenlijk opvatten als een tussenroutine, 
die wordt doorlopen nadat een programma is geassembleerd. Dat door- 
lopen gebeurt op “'initiatief’’ van de ingedrukte toets ST van het standaard- 
toetsenbord. 
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label MEM 
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Figuur 1. Het blokschema van het systeemprogramma PME. 


Meestal zal het verblijf in PME inhouden dat men zich ín de hoofdroutine 
van PME bevindt. Dat is alles na het label WARM in figuur 1. De gang van 
zaken binnen de hoofdroutine ziet er bekend uit. Nadat er een ingedrukte 
toets is vastgesteld volgt de bekende '!software-enquête”’: is het toets Jan? 
Zo ja: voer de Jan-toetsroutine uit. Zo nee. is het soms toets Piet? Zo ja: 
voer de Piet-toetsroutine uit. Zo nee: is het toets Henk? Enzovoorts. Na de 
uitvoering van de bijbehorende toetsroutine gaat het terug naar het cen- 
trale label WARM van de PM-hoofdroutine, voor het wachten op een 
nieuwe ingedrukte toets en het vervolgens afhandelen van de werkzaam- 
heden die bij die toets horen. 

Soms vindt de sprong terug naar WARM plaats via een tussenstation: de 
terugmelding "DONE", “ILLEGAL KEY” of “FULL”. In het geval van de 
X-toetsroutine gaan we na afloop niet terug naar WARM, maar naar 
_de assembler: het label WARM wordt eerst na een omweg (toets ST, 
label ASSEND, label EDITW) bereikt. Het laatste deel van de |-toets- 
routine (vanaf het label MEM) is tevens het laatste deel van de input- 
toetsroutine. 


De subroutine MESSA van figuur 2 is er voor het afdrukken van een 
tekst, door de junior computer, bij monde van PME. Deze sub- 
routine is dezelfde als de subroutine MESSY van figuur Sa en van punt 11 
van hoofdstuk 14. Met één verschil: het eerste adres van de opzoektabel 
is nu niet MESS, maar TXT. In die opzoektabel liggen de volgende, af te 
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Figuur 2. De PME-subroutine MESSA is identiek aan de PM-subroutine MESSY, 
zij het dat een andere opzoektabel nodig is om de specifieke PME-terugmeldingen te 
verzorgen. 


drukken teksten: “”BEGAD,ENDAD", “ILLEGAL KEY”, “FULL”, 
HDONE”, “PM EDITOR”, "LAB $" en “$”. De keuze van de af te drukken 
tekst wordt bepaald door de waarde van Y, direkt vóór de sprong naar de 
subroutine MESSA. 


De subroutine PRINS van figuur 3 heeft tot taak het afdrukken van 

een instruktie, voorafgegaan door het adres met de opcode van die 
instruktie en gevolgd door een aantal spaties dat wordt bepaald door het 
aantal bytes van de afgedrukte instruktie. Welke instruktie wordt er eigen- 
lijk afgedrukt? Want er zijn er meer dan één. Die instruktie wordt afgedrukt 
waarvan de opcode zich op een adres bevindt dat gelijk is aan de inhoud 
van de adreswijzer CURAD. In de hoofdstukken 5 en 8 is die CURAD 
'"displaywijzer”’ genoemd; in de PME-situatie is het handiger om te spreken 
van ''instruktiewijzer”. Dus goed onthouden: CURAD heeft altijd iets te 
maken met de laatste instruktie, die op de linker kolom van het tv-scherm 
of printerpapier is afgedrukt of zal worden afgedrukt. En dat ie op de 
linker kolom wordt of is afgedrukt zal nu blijken. | 
De subroutine PRINS van figuur 3 begint met de subroutine CRLF, welke 
laatste is besproken in punt 12 van hoofdstuk 14. Er wordt dus begonnen 
op het begin van een nieuwe regel. Er wordt dus begonnen op de begin- 
positie van een regel op de linker kolom. Als dat achter de rug is komt er 
alwéér een subroutine om de hoek kijken: OPLEN. Dat is een oude 
bekende van de standaard-editor. Hij staat beschreven op de pagina's 
154... 158 (hoofdstuk 8) van boek 2. De opcode van een instruktie gaat 
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Figuur 3. De PME-subroutine PRINS zorgt ervoor dat een door de instruktiewijzer 
CURAD aangewezen instruktie mèt het adres van de opcode wordt afgedrukt, op 
dat deel van een regel dat deel uitmaakt van de linker reaktiekolom. Tevens wordt 
gen zodanig aantal spaties op dezelfde regel afgedrukt dat een vervolgens door de 
gebruiker ingedrukte toets tot uiting komt op het begin van de rechter aktiekolom. 
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de accu in en er wordt vastgesteld of de instruktie één, twee of drie bytes 
lang is. De instruktielengte staat in de geheugenplaats BYTES. 

In figuur 3 krijgt het X-register na OPLEN de inhoud van BYTES toege- 
wezen. Er is dus bekend hoeveel bytes er straks moeten worden afgedrukt. 
Maar vóór het zover is wordt eerst de inhoud van CURADH en CURADL 
afgedrukt. Dat is het adres met de opcode van de af te drukken instruktie. 
Dat gebeurt via twee opeenvolgende aanroepen van de subroutine PRBYT, 
die in punt 9 van hoofdstuk 14 is besproken. Daarna krijgt de geheugen- 
plaats LABELS de waarde PF toegekend. Dat heeft iets te maken met het 
aantal spaties dat straks, na het label SP en na de afdruk van de instruktie, 
zal worden afgedrukt. 

We zijn nu toe aan alles van figuur 3 tussen het label PRT en het label SP. 
Dit gedeelte van PRINS wordt, afhankelijk van de instruktielengte, dus 
afhankelijk van de beginwaarde van X, één, twee of drie keer achter elkaar 
doorlopen. De eerste doorloop vindt plaats met Y gelijk aan nul, een even- 
tuele tweede doorloop met Y gelijk aan D1 en een eventuele derde door- 
loop met Y gelijk aan 03. Elke doorloop begint met het afdrukken van een 
spatie (PRSP; zie punt 12 van hoofdstuk 14). Daarna krijgt de accu de 
inhoud van de geheugenplaats toegewezen die volgt uit de inhoud van 
CURADL en CURADH èn uit de index Y. Met andere woorden: eerst de 
opcode van de instruktie, dan eventueel het eerste of enige operand-byte 
en dan eventueel het tweede operand-byte. Het eigenlijke drukwerk doet 
de subroutine PRBYT. Verder wordt de inhoud van LABELS tijdens elke 
doorloop van PRT met drie verlaagd. Immers: voor elk byte dat je afdrukt 
hoef je straks drie spaties minder af te drukken om op het begin van de 
rechter aktiekolom uit te komen. 

Het laatste deel van PRINS, dus alles na het label SP, houdt zich bezig met 
het afdrukken van die spaties. Hoeveel dat er zijn hangt af van de eind- 
stand van LABELS, dus van het aantal keren dat alles tussen PRT en SP 
is doorlopen en dus van de lengte van de afgedrukte instruktie. Nadat de 
instruktie is afgedrukt volgen er 12 spaties in het geval van een één-byte- 
instruktie, 9 spaties in het geval van een twee-byte-instruktie en 6 spaties 
in het geval van een drie-byte-instruktie. 


Overigens: Niet in elke toepassing van PRINS is het afdrukken van spaties 
strikt nodig. Bijvoorbeeld in het geval van de P- of L-toetsroutine. Want 
dan vervalt gedurende een aantal regels het nut van een rechter aktiekolom. 
Weliswaar is in dit soort gevallen de afdruksnelheid lager dan strikt nood- 
zakelijk is, maar de bytewinst is belangrijker dan dat snelheidsverlies. 


Wat gebeurt er na een koude start van PME? Dan worden de instruk- 

ties van de voorroutine van PME (figuur 4a) vanaf het label EDITC 
tot aan het label WARM doorlopen. De instrukties vanaf EDITC tot aan 
het label BRK worden uitsluitend tijdens de koude start doorlopen, de 
instrukties na het label BRK worden óók in bepaalde andere gevallen door- 
lopen. 
Direkt na het label EDITC volgt de aanroep van de subroutine RESIN, 
Deze subroutine hebben we in hoofdstuk 14, in punt 14, leren kennen. De 
inhoud van de databuffers INH en INL wordt nul. Direkt daarop volgt de 
aanroep van de subroutine MESSA (punt 2); er volgt de terugmelding 
"„BEGAD, ENDAD:". Eigenlijk is het geen terugmelding, maar een vraag. 
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van figuur 9 
$ 1530 {LABLST} 
LDYIM $2g 
MESSA “PM EDITOR” 
LDYIM $FF 
TXS 
WARM f Ì ! 
ank N.B. Figuur 4b staat op pagina 110! 


Figuur 4a. De voorroutines EDITC en SEMIW van PME, met inbegrip van een 
gemeenschappelijk gedeelte vanaf het label BRK. 
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Een vraag aan u. Want u wordt als gebruiker geacht om een BEGAD en een 
ENDAD op te geven. Hoe ging dat ook weer? Eerst de data van BEGAD 
intoetsen, dan een komma, vervolgens de data van ENDAD intoetsen en 
tenslotte de toets CR indrukken. Er bestáát al een subroutine die dat 
allemaal voor zijn rekening neemt. Namelijk INPAR, die ondermeer is 
gebruikt bij de M-toetsroutine van PM (hexdump). Hij is behandeld in 
punt 24 van hoofdstuk 14. Indien er, op welke manier dan ook, iets niet 
volgens de regels is gegaan tijdens de opgave van data, komma en CR, dan 
is na afloop van INPAR de N-vlag één en de Z-vlag nul. De BMI, die in 
figuur 4a op JSR-RESIN volgt, zorgt ervoor dat er helemaal opnieuw 
wordt begonnen (“valse start”), dus dat opnieuw de terugmelding 
"BEGAD, ENDAD:” op het papier of tv-scherm ís te zien. In een aantal 
gevallen volgt overigens nog tussentijds de terugmelding “WHAT?”. Dit 
omdat, zoals in figuur 18 van hoofdstuk 14 is te zien, op twee plaatsen in 
INPAR de subroutine HEXNUM wordt aangeroepen. En in het geval van 
een niet-numerieke toets volgt dan de voornoemde foutmelding. 

Voor HEXNUM: zie figuur 11 en punt 13 van hoofdstuk 14. 

Indien de opgave van BEGAD en ENDAD korrekt is voltooid volgt het 
overhevelen’ van de inhoud van de buffers PARAH en PARAL voor het 
eerste adres in BEGADH, respektievelijk BEGADL. De inhoud van de 
buffers PARBH en PARBL voor het tweede adres wordt gekopieerd in de 
geheugenplaatsen ENDADH, respektievelijk ENDADL. Verder krijgen de 
geheugenplaatsen CENDH en CENDL een zodanige inhoud toegewezen 
dat de variabele eindadreswijzer GEND op een adres staat gericht dat één 
hoger is dan het beginadres BEGAD van het geheugenbereik. Dat is nodig 
omdat op BEGAD het EOF-teken 7/7 komt te staan. Naarmate er instruk- 
ties en labels worden toegevoegd (Input) of tussengevoegd (Insert) schui- 
ven die 77 en CEND op naar een hogere geheugenplaats respektievelijk 
adres. Naarmate er instrukties of labels worden verwijderd (“Delete”’, 
Kill’; zie punt 6) schuiven de 77 en GEND op naar een lagere geheugen- 
plaats respektievelijk adres. 

Voordat de rode lantarendrager 77 op BEGAD kan worden gezet moet de 
instruktiewijzer CURAD worden gericht op BEGAD. Dat gebeurt via de 
subroutine BEGIN, een oude bekende van hoofdstuk 8 van boek 2. Nadat 
de PME-voorroutine van figuur 4a is doorlopen zal de eerste instruktie, 
met de opcode in BEGAD, worden afgedrukt. Direkt na de koude start is 
dat dus de één-byte-instruktie met de pseudo-opcode 71. 


Het tweede deel van de PME-voorroutine van figuur 4a wordt onder- 

meer doorlopen na een warme start van PME. Een warme start 
begint bij het label BRK. Indien men voor deze ingang van PME kiest gaat 
men uit van waarden voor de grootheden BEGAD, ENDAD, CURAD en 
CEND die zijn vastgelegd tijdens de voorgeschiedenis van de computer- 
sessie of tijdens de voorroutines SEMIW (punt 19), SEACND (punt 20) of 
de tussenroutine LABLST (punt 17; tussen label EDITW). Wat er direkt na 
een warme start in ieder geval wèl moet worden vastgelegd is de BRK- 
sprongvektor. Vóór de warme start zaten we namelijk in PM, en de BRK- 
_sprongvektor is dáár gericht op het label LABJUN, met als gevolg de terug- 
melding “JUNIOR” (zie hoofdstuk 14). | 
Het is dan ook niet verwonderlijk dat direkt na het label BRK in figuur 4a 
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de BRK-sprongvektor wordt gespecificeerd op het adres $153D. Dat is het 
adres dat hoort bij het label EDITW. Na dit laatste label volgen er enige 
instrukties die zorgen voor de terugmelding “PM EDITOR" en voor het re- 
setten van de stack pointer op FF. Dat laatste kan zeer nuttig zijn na het 
indrukken van de BRK-toets omdat er situaties denkbaar zijn dat niet 
alleen drukwerk moet worden onderbroken maar dat ook de stapel dreigt 
“gol te lopen” (Dat zogenaamde "overlopen" van de stapel is onzin: zodra 
het hoogste punt, adres @109, is bereikt, wordt vervolgens opnieuw begon- 
nen bij de "onderste’’ stapelplaats, met adres G1FF; zie pagina 94 en figuur 
18 in de derde druk van boek 1). 

N.B. Voor een warme start kan men kiezen voor adres $153D (label 
EDITW) in plaats van voor adres $1533 (label BRK). Dat betekent dan wèl 
dat de BRK-sprongvektor volgens PM gespecificeerd is, en dat verder ook 
blijft. Verder is de BRK-sprongvektor eveneens nog volgens PM gedikteerd 
tijdens de afwikkeling van de instrukties (tot aan het label EDITW) van de 
voorroutines EDITC en SEMIW van figuur 4a en de voorroutine SEACND 
van figuur 10. Het indrukken en weer loslaten van de BRK-toets tijdens 
het afdrukken van ”BEGAD, ENDAD:" of tijdens het verblijf in INPAR 
(met daarin op twee plaatsen een JSR-RECCHA, zie punt 30 van hoofd- 
stuk 14) heeft de terugmelding “JUNIOR” tot gevolg. Het indrukken en 
weer loslaten van de BRK-toets tijdens het verblijf in PME — waarbij de 
instrukties vanaf het label BRK zijn doorlopen — heeft altijd de terug- 
melding “PM EDITOR” tot gevolg. 


We zijn toe aan de bespreking van de hoofdroutine van PME. Te 

beginnen met figuur 4b. En te beginnen met de K-toetsroutine. Dat 
zijn de instrukties die direkt volgen op het centrale label WARM, links- 
boven in figuur 4b. Begonnen wordt met het afdrukken van de instruktie. 
Welke instruktie dat is hangt af van de inhoud van de adreswijzer CURAD. 
Het afdrukken vindt plaats met behuip van de subroutine PRINS. Deze 
subroutine is besproken in punt 3. Zie ook figuur 3. Na PRINS volgt de 
subroutine RECCHA: wacht op een ingedrukte toets en zodra dat het 
geval is: zet de ASCII-kode van die ingedrukte toets in de accu. 
Voor RECCHA: zie hoofdstuk 14, punt 5 en figuur 5. 
Nadat blijkt dat de ingedrukte toets K is volgt de subroutine UP. Dat is een 
subroutine van de standaard-editor. Wat doet deze? Deze zorgt ervoor dat 
de instruktie die door de instruktiewijzer CURAD is aangewezen, in het 
geheugen wordt overgeschreven door alle, op die verwijderde (overschreven) 
instruktie volgende labels en instrukties. Het programma (“user file’) 
wordt dus met één instruktie ingekort. Na de subroutine UP volgt een 
andere subroutine van de standaard-editor, te weten RECEND. De inhoud 
van de variabele eindadreswijzer CEND wordt verlaagd met een bedrag dat 
volgt uit de inhoud van de geheugenplaats BYTES. Dat laatste heeft iets 
met een instruktielengte te maken. Namelijk het aantal bytes van de 
verwijderde instruktie. Die BYTES speelt overigens óók een rol in de 
subroutine UP. Er hoeft hier geen beroep te worden gedaan op de sub- 
routine OPLEN of LENACC, omdat de verwijderde instruktie de als laatste 
afgedrukte instruktie is; de inhoud van BYTES is daarmee in overeen- 
stemming. Zie de JSR-OPLEN in de subroutine PRINS van punt 3 en 
figuur 3. 


109 


* Jb 





D 
OIC 








© 
er] ern | 
| 
Co 
Ge 
6 [peet ores | 
ET 
| 
eet porn | 
MESS 











CMPZ — INH 





ORO 


FOUND 


FILLWS 


PRINS 








BECCHA 


CHPIM “Y 


) 












81914-4b 


N.B. Figuur 4c staat op pagina 120! 


Figuur 4b. Het eerste deel van de hoofdroutine van PME, namelijk de toetsroutines 
van de toetsen K,‚ L, SP (spatiebalk, niet ”S“ plus ”P“!), l en S. 
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Voor UP: zie pagina 152 en de figuren 17 en 18 van hoofdstuk 8 van 
boek 2. 

Voor RECEND: zie pagina 149 en figuur 14 van hoofdstuk 8 van boek 2. 
Ter afsluiting van de K-toetsroutine volgt de sprong terug naar het centrale 
label WARM van de PME-hoofdroutine. Alles wat gedaan moest worden is 
gedaan: de als laatste afgedrukte instruktie is uit het geheugen verwijderd. 
Omdat de stand/inhoud van CURAD ongewijzigd is gebleven volgt na de 
terugkeer naar WARM het afdrukken van die instruktie die in het geheugen 
direkt volgde op de zojuist verwijderde instruktie. 


/ De L-toetsroutine bestaat uit alle instrukties in figuur Ab vanaf het 
labei LIST tot aan het terugmeldingslabel DONE. Deze toetsroutine 
moet ervoor zorgen dat alle instrukties van het programma waaraan men 
werkt worden afgedrukt. Dat afdrukken moet ophouden zodra de 
variabele eindadreswijzer CEND door de instruktiewijzer CURAD is 
bereikt. 
Is er een ingedrukte toets L vastgesteld, dan volgt allereerst de subroutine 
BEGIN: als eerste wordt de eerste instruktie van het programma, met de 
opcode op het adres BEGAD, afgedrukt. De rest van de L-toetsroutine 
bestaat uit een programmalus rond het label LST, bestaande uit de sub- 
routines PRINS, NEXT en een BMI. De subroutine NEXT hebben we 
“geleend’’ van de standaard-editor. Hij staat beschreven in hoofdstuk 8 van 
boek 2. Zie de pagina’s 140 en 141 en figuur 10 aldaar. De instruktiewijzer 
(CURAD) wordt opgehoogd met een bedrag dat in overeenstemming is 
met de meest recente inhoud van BYTES, dus bij deze toetsroutine in 
overeenstemming is met de lengte van de zojuist, tijdens PRINS afgedrukte 
instruktie. Het laatste deel van NEXT is er voor de kontrole of de ver- 
hoogde CURAD niet een hoger adres aanwijst dan CEND, danwel dat de 
inhoud van CURAD kleiner is dan de inhoud van GEND of gelijk is aan die 
van CEND. 
In het laatste deel van NEXT wordt de inhoud van CEND afgetrokken van 
de inhoud van CURAD. Er geldt: 
CEND > CURAD >N=1lenC=Ö 
CEND < CURAD > N= den C =1 
De toestand van de N-vlag geldt voorzover het resultaat van de aftrekking 
niet negatiever is dan —127, met andere woorden: zolang het meest linkse 
bit van het resultaat van de aftrekking één is. In alle situaties van PME en 
van de standaard-editor waar de subroutine NEXT aan bod is kan men na 
afloop daarvan dus gaan testen met €en BMI en/of BPL, in plaats van de 
formeel juistere test van de carry-vlag via de instruktie(s) BCG en/of 
BCS. 
Nadat de rode lantarendrager 77 is afgedrukt (die staat op een geheugen 
plaats met een adres, één lager dan CEND) en nadat opnieuw NEXT is 
doorlopen, wordt CURAD gelijk aan CEND (bij een “opcode” 77 hoort 
een instruktielengte één). Dit heeft tot gevolg dat de N-vlag niet langer één 
is en dat dus de afdruklus rond het label LST is onderbroken. Het label 
DONE wordt nu afgewerkt. Na de terugmelding "DONE, dus nadat 
tijdens MESSA de Z-vlag één is geworden (omdat er een afsluitende EOT 
in de accu staat; zie figuur 2), volgt de sprong terug naar het centrale label 
WARM van de PM-hoofdroutine. Tijdens de dáárop volgende afwerking 
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van de subroutine PRINS wordt er een instruktie afgedrukt waarvan de 
opcode zich op het adres CEND bevindt. Zeer waarschijnlijk is dat een 
instruktie die niet door de gebruiker is opgegeven. Een fantasie-instruktie 
dus, met een fantasie-opcode. In ieder geval staat vast dat de als laatste 
ingedrukte instruktie niet hoort bij het programma waaraan men op dat 
moment aan het editen is. Omdat hij op een adres zit dat gelijk is aan 
CEND, de variabele eindadreswijzer. 


8 De spatietoetsroutine is nu aan bespreking toe. Die routine bestaat 

uit alle instrukties in figuur 4b direkt na het label SKIP. Het indruk- 
ken van de spatietoets heeft tot gevolg dat de instruktie wordt afgedrukt 
die in het geheugen direkt volgt op de instruktie die voor het indrukken 
van de spatiebalk als laatste is afgedrukt. Er gebeurt dus hetzelfde als bij 
de L-toetsroutine, maar dan voor één instruktie en niet te beginnen bij 
BEGAD maar te beginnen en te eindigen bij de instruktie die wordt aange- 
wezen door de nieuwe inhoud van de instruktiewijzer CURAD. En wat dat 
laatste betreft: het is niet verwonderlijk dat de spatietoetsroutine de sub- 
routine NEXT bevat. Deze wordt aangeroepen zodra blijkt dat de inge- 
drukte toets toets L is. Over NEXT hebben we het zojuist nog, in punt 7 
uitgebreid gehad. Na NEXT volgen de instrukties BMI en BPL. Beide 
instrukties reageren op de N-vlag; er staat dus altijd één van de twee op 
springen. In het ene geval volgt de gang terug naar WARM en in het andere 
geval gebeurt dat pas na de terugmelding "DONE", In beide gevallen wordt 
er een nieuwe instruktie afgedrukt. Zolang CEND nog niet door CURAD is 
“ingehaald’’ is dat de volgende instruktie in het geheugen en zodra 
CURAD gelijk is geworden aan CEND wordt na “DONE” een instruktie 
afgedrukt waarvan de opcode zich op het adres CEND bevindt. De gang 
van zaken is dus wat dat betreft exakt gelijk aan het einde van de L-toets- 
routine (zie punt 7). 


Voordat de l-toetsroutine zal worden besproken (zie punt 11) volgt 
O er nu en in punt 10 een intermezzo, tijdens welk een drietal PME- 
subroutines zal worden besproken. Allereerst de subroutine READIN/ 
READ van figuur 5. Deze subroutine is kwa funktie te vergelijken met de 
subroutine RDINST van de standaard-editor (zie de pagina's 142... 144 
en figuur 11 van boek 2). Wat doet READIN/READ? Deze zorgt voor de 
verwerking van een door de gebruiker opgegeven instruktie. Hij wordt 
gebruikt bij de Insert, Search- en Input-toetsroutines (zie de punten 11, 
12 respektievelijk 18). 
Zoals in RDINST — afhankelijk van de instruktielengte — één, twee of 
drie keer een beroep wordt gedaan op de subroutine GETBYT, zo wordt 
in READIN/READ één, twee of drie keer een beroep gedaan op de sub- 
routine BYTIN/BYT. Deze staat in figuur6 en zal nu eerst in detail 
worden besproken. 
De naam van de subroutine zegt het al: het gaat erom dat twee opeen- 
volgende ingedrukte numerieke toetsen ®...F worden verwerkt tot een 
linker, respektievelijk een rechter datanibble, die, tot één databyte samen- 
gevoegd, in de accu komen te staan. Figuur 6 begint met de subroutine 
RECCHA: wacht op een ingedrukte toets. In de PM-subroutine ASHETT, 
die daarop volgt, wordt in het geval van een numerieke toets de 
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Figuur 5. De subroutine READIN/READ verzorgt het inlezen van een instruktie en 
wordt gebruikt bij de í-, S- en Input-toetsroutine. 
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Figuur 6. De subroutine BYTIN/BYT verzorgt het inlezen van een databyte, dus twee 
datafibbles, die horen bij twee ingedrukte numerieke toetsen. Deze subroutine wordt 
minstens één keer aangeroepen vanuit de subroutine READIN/READ van figuur 5. 


ASClIl-kode van die toets omgezet in het overeenkomende datanibble. 
Is het geen numerieke toets, dan wordt ASHETT verlaten met een N-vlag 
één. 

Voor de subroutine ASHETT: zie figuur 12 en punt 13 van hoofd- 
stuk 14. | 

Na ASHETT en nadat is gebleken dat de N-vlag nul is staat het opgehaalde 
nibble rechts in de accu. Vier opeenvolgende schuifoperaties (naar links) 
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op de accu-inhoud hebben tot gevolg dat het zojuist ingelezen datanibble 
het linker nibble van de accu-inhoud is geworden. Die tijdelijk wordt 
opgeslagen in de geheugenplaats NIBBLE. En dan volgt nogmaals de 
sprong naar RECCHA en nogmaals de sprong naar ASHETT, het tweede 
datanibble wordt verwachten vervolgens verwerkt. Na het kombineren van 
de oude en de nieuwe accu-inhoud (de instruktie ORAZ-NIBBLE) en 
nadat de Z-vlag één en de N-vlag nul is gemaakt is de computer klaar met 
BYTIN/BYT; een RTS ligt dan voor de hand. Is er, per ongeluk of expres, 
een niet-numerieke toets tijdens BYTIN/BYT vastgesteld, dan wordt deze 
subroutine verlaten met een N-vlag één en een Z-vlag nul. 

N.B. De subroutine BYT is gelijk aan de subroutine BYTIN, op het wach- 
ten op de eerste numerieke toets (eerste RECCHA van figuur 6) na. BYT 
speelt een rol bij de Input-toetsroutine, zie punt 18. 

Nu de subroutine READIN/READ van figuur 5. Die begint met de zojuist 
besproken subroutine BYTIN. De eerste twee datanibbies, dus de opcode 
van de door de gebruiker opgegeven instruktie, staan in de accu. 
Tenminste: als de N-vlag één is. Want anders gaan we meteen door naar 
RTS (N= 1;Z =0). 

Direkt na het label READ gaat de opcode van de opgegeven instruktie 
naar de geheugenplaats POINTH. Uit de subroutine LENACG, die ver- 
volgens aan het werk wordt gezet, blijkt hoe lang de instruktie is en dus 
of er geen, één of twee herhalingen van BYTIN in READIN optreden. 
De lengte van de instruktie is vertaald in de inhoud van de geheugen- 
plaats TEMPX en in de beginwaarde van de geheugenplaats COUNT. 
Aan het eind van LENACC heeft Y een inhoud, gelijk aan de instruktie- 
lengte. 

Indien de instruktie twee of drie bytes lang is volgt de afdruk van een 
spatie (PRSP) en wachten we op de opgave van het eerste of enige 
operand-byte (BYTIN). Dat byte gaat naar de buffer POINTL. Is de 
instruktie drie bytes lang, dan herhaalt zich dat spelletje; het tweede 
operand-byte gaat naar de buffer INH. Tot slot van het liedje (label RDA 
in figuur 5) krijgt X de waarde nul. Met als gevolg dat de Z-vlag één is en 
dat de N-vlag nul is. Indien er tussentijds een niet-numerieke toets is vast- 
gesteld wordt READIN/READ verlaten met een N-vlag één en een Z-vlag 
nul. Hoe dan ook: de RTS betekent het einde van het verblijf in READIN/ 
READ. 

N.B. De subroutine READ is gelijk aan de subroutine READIN, op het 
wachten op het eerste byte (de opcode; de eerste BYTIN plus BMI van 
READIN) na. READ speelt een rol bij de Input-toetsroutine, zie punt 
18. 


10 Nu de subroutine CHECK. Die heeft iets te maken met de vraag of 
er voor een nieuwe toe- of tussen te voegen (kandidaat-)instruktie 
nog wel voldoende plaats is in het geheugen, of niet. Dat heeft verder ook 
alles te maken met figuur 1 van hoofdstuk 13. Er moeten, het adres 
ENDAD meegerekend, vier plaatsen overblijven: drie plaatsen voor het 
eerste gevonden label tijdens de eerste fase van het assembleren en één 
geheugenplaats voor het EOF-teken 77. Dat betekent dat de kwa positie 
op de geheugenkaart laagste stand van de variabele eindadreswijzer CEND 
die is waarbij CEND staat gericht op een adres dat twee lager is dan het 
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adres ENDAD. Indien CEND — rekening houdend met de lengte van de 
kandidaat-instruktie — lager dan deze genoemde positie komt te staan, is 
er geen plaats meer in het geheugen voor de kandidaat-instruktie: kandi- 
daat afgewezen. Jammer, niets aan te doen! Of? Misschien kan ENDAD 
nog worden verhoogd? | 

De vaststelling: wel of geen plaats is vertaald in de toestand van de carry- 
vlag na afloop van CHECK. Deze subroutine staat in figuur /. Begonnen 
wordt met de subroutine ADCEND. Dit is een subroutine van de stan- 
daard-editor. Hij staat beschreven in hoofdstuk 8 van boek 2; zie pagina 
145/146 en figuur 13. De variabele eindadreswijzer GEND wordt verhoogd 
met de lengte van een instruktie. Neem voorlopig van ons aan dat de in- 
houd van de geheugenplaats BYTES vlak vóór de sprong naar CHECK 
in overeenstemming is met de lengte van de kandidaat-instruktie. 

Nadat dit is gebeurd krijgt de carryvlag een waarde die afhangt van het 
resultaat van inhoud ENDAD minus $@2 minus inhoud CEND. De instruk- 
tie BCC beslist wat de software van CHECK vervolgens te doen staat. 
Indien C nul is geworden is er bij het aftrekken kennelijk een borrow 
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Figuur 7. De PME-subroutine CHECK gaat na of er nog plaats is voor een opgegeven 


instruktie in het door BEGAD en ENDAD vastgelegde geheugengedeelte. Het 
resultaat van het onderzoek ís vertaald in de toestand van de carryvlag. 
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nodig geweest. Dit betekent dat de inhoud van ENDAD kleiner is dan de 
inhoud van CEND met daarbij opgeteld $92. Er is dan geen plaats in het 
geheugen voor de kandidaat-instruktie: RTS met C= }. 

Indien echter het resultaat van het aftrekken data nul of positieve data 
oplevert is CEND nog niet onder de minimumstand beland. Er is plaats 
voor de kandidaat-instruktie: kandidaat toegelaten en RTS met C= 1. 
Echter: vlak voor de RTS volgt eerst nog de subroutine RECEND. Dat is 
het broertje van ADCEND. Zie pagina 148 van boek 2. De variabele eind- 
adreswijzer CEND krijgt tijdelijk de oude waarde weer terug omdat direkt 
na CHECK begonnen wordt met het ‘inschrijven!’ in het geheugen van de 
kandidaat-instruktie (zie de bespreking van de I-toetsroutine, in punt 11). 
Er moet eerst plaats worden gemaakt in het geheugen. En dáárvoor is het 
van essentieel belang dat CEND eerst nog even de oude waarde krijgt. 

N.B. Merk op dat in het geval dat CHECK wordt verlaten met C = P geen 
korrektie van CEND via de subroutine RECEND plaatsvindt. Dit heeft tot 
gevolg dat enerzijds het EOF-teken 77 op zijn plaats blijft (er wordt 
immers geen instruktie aan het geheugen toegevoegd omdat er geen plaats 
(genoeg) voor is) en dat anderzijds CEND wel kwa inhoud groter wordt en 
kwa positie op de geheugenkaart lager komt te staan. Zodra er dus geen 
plaats meer blijkt te zijn voor een nieuwe tussen- of toe te voegen instruk- 
tie staat CEND niet langer gericht op een ardres dat één hoger is dan het 
adres van de geheugenplaats met daarin de EOF 77. Daar is wat aan te 
doen: zie punt 20. 


11 Zo, nu dan de I-toetsroutine. Dat zijn in figuur 4b de instrukties 
die direkt volgen op het label INSERT. Zodra blijkt dat er een 
toets is ingedrukt en dat het toets | is volgt er een beroep op de subroutine 
READIN., Die hebben we zojuist, in punt 9, besproken. De subroutine 
READIN wordt verlaten met: 

N=g;Z=1 èn 

in POINTH de opcode van de te "Inserten”” (tussen te voegen) instruktie; 
in POINTL eventueel de eerste of enige operand van de instruktie; 

in INH eventueel de tweede operand van de instruktie; 

òf: N=1,Z=0, indien tijdens de opgave van de instruktie een niet- 
numerieke toets is ingedrukt. In dat laatste geval volgt via de instruktie 
BMI, die direkt volgt op JSR-READIN, de sprong naar het label ILLKEY, 
voor de terugmelding "ILLEGAL KEY", gevolgd door de terugkeer naar 
het centrale label WARM. 

Indien de instruktie helemaal volgens de regels is opgegeven worden de 
instrukties die volgen op het label MEM afgewerkt. Allereerst wordt de 
subroutine CHECK doorlopen. Er wordt dus gekeken of er nog wel vol- 
doende plaats is in het geheugen voor de kandidaat-instruktie. Een en 
ander is in punt 10 besproken. Indien dat niet het geval is volgt via de 
aansluitende instruktie BCG de sprong naar het label FULL, teneinde te 
zorgen voor de terugmelding “FULL”. Is er daarentegen nog plaats 
genoeg in het geheugen, dan wordt de subroutine FILLWS aangesproken: 
de kandidaat-instruktie is toegelaten en kan in het geheugen worden 
gezet. 

Die subroutine FILLWS is ook al bij de standaard-editor gebruikt. Zie 
figuur 12 in hoofdstuk 8 van boek 2. Hij zorgt ervoor dat plaats wordt 
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gemaakt voor de nieuwe instruktie (subroutine DOWN). Nadat de varia- 
bele eindadreswijzer CEND is aangepast worden één, twee of drie geheu- 
genplaatsen gevuld met de inhoud van POINTH (opcode respektievelijk 
eventueel de inhoud van POINTL), ((eerste) operand) respektievelijk even- 
tueel de inhoud van INH (tweede operand). Omdat na afloop van FILLWS 
de Z-vlag één is voert de aansluitende instruktie BEQ ons automatisch 
terug naar het centrale label WARM. Omdat CURAD ongewijzigd is wordt 
dan de tussengevoegde instruktie afgedrukt. 

N.B. Het gedeelte van de |-toetsroutine na het label MEM is tevens het 
tweede gedeelte van de Input-toetsroutine. Zie punt 18. 


1 De S-toetsroutine omvat een hele waslijst aan instrukties. Dat wil 
zeggen: de hele rechter kolom, vanaf het label SEARCH, van figuur 
Ab. Nadat is vastgesteld dat toets S is ingedrukt volgt de sprong naar de 
subroutine READIN van punt 9. Dat betekent dus dat de op te sporen 
instruktie is gespecificeerd in de geheugenplaats POINTH (opcode) en 
eventueel, afhankelijk van de instruktielengte, verder in de geheugen- 
plaatsen POINTL en INH. Indien er een niet-numerieke toets is ingedrukt 
voert de BMI, die direkt op READIN volgt, naar het label ILLKEYN: er 
volgt de foutmelding “ILLEGAL KEY". 
En daarna, vanaf het label SCAN, spelen zich de eigenlijke opsporings- 
akties af. Eerst gaat de opcode van de op te sporen instruktie de accu in 
en wordt er in LENACC gekeken hoe lang die instruktie is. Die lengte 
is na afloop van LENACC bekend via de inhoud van de geheugenplaats 
BYTES. O ja, we waren het bijna vergeten: direkt vóór SCAN (JSR- 
BEGIN) is de instruktiewijzer (CURAD) gericht op BEGAD: er wordt 
met het zoeken begonnen bij de eerste instruktie of het eerste label van 
het programma. De opcode van die instruktie gaat de accu in (LDA- 
(CURADL),Y) en wordt vergeleken met de opcode van de gezochte in- 
struktie, dus met de inhoud van POINTH. Zijn de beide opcodes niet 
gelijk, dan hoeven we deze instruktie niet verder te onderzoeken; de BNE 
voert naar het label AGAIN, voor het onderzoek van de volgende instruk- 
tie uit het geheugen. | 
Door het verlagen van de inhoud van BYTES met één en een daarop 
volgende BEQ wordt gekeken of de op te sporen instruktie (dus niet de 
onderzochte instruktie!) één byte lang is of niet. Let wel: dit onderzoek 
vindt uitsluitend plaats indien de beide opcodes gelijk blijken te zijn. Is de 
op te sporen instruktie inderdaad één byte lang, dan volgt de sprong naar 
het label FOUND: de instruktie wordt mèt adres afgedrukt. Zo niet, dan 
wordt het volgende byte uit het geheugen opgehaald. Dit is niet perse de 
eerste of enige operand van de onderzochte instruktie, omdat de onder- 
zochte instruktie slechts één byte lang kan zijn. Wèl staat het vast dat dat 
“yolgende byte in het geheugen” wordt vergeleken met de eerste of enige 
operand van de op te sporen instruktie. Ook nu zijn er twee mogelijkheden: 
bytes ongelijk? Dan direkt dóór naar AGAIN. Bytes gelijk? Ga na of de op 
te sporen instruktie twee bytes lang is. Is dat het geval: dóór naar FOUND; 
is dat niet het geval: haal het nu volgende byte uit het geheugen op en 
vergelijk dat met de tweede operand van de op te sporen instruktie. Zijn 
ook deze twee bytes onderling gelijk, dan zijn we zonder sprongen 
branches’) bij het label FOUND terechtgekomen. 
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(Tussenopmerking). Men had het gedeelte na het label SCAN ook anders 
kunnen opzetten. Na de vaststelling dat de beide opcodes aan elkaar gelijk 
zijn had men de beide instruktielengten met elkaar kunnen vergelijken 
en meteen dóór kunnen gaan naar AGAIN als dat niet het geval is. Dat 
spaart weliswaar tijd, maar bepááld geen geheugenplaatsen. En het gekozen 
algorithme (de "aanpak”') is écht waterdicht. 

Direkt na het label FOUND volgt de subroutine PRINS: de op te sporen 
instruktie is gevonden en wordt mêt het adres van de opcode afgedrukt. 
Uit de software is ondubbelzinnig op te maken dat er met het opsporen 
wordt begonnen vanaf het begin van het programma: zie de subroutine 
BEGIN vlak voor het label SCAN. In hoofdstuk 13 is verteld dat men nog 
verderop in het geheugen naar dezelfde instruktie kan zoeken. Je moest 
dan de toets Y indrukken. Het is dan ook niet verwonderlijk dat direkt na 
PRINS de subroutine RECCA volgt. Dus dat er wordt gewacht op een 
ingedrukte toets. Is die ingedrukte toets de Y-toets, dan gaat PME dóór 
naar het label AGAIN, ter voorbereiding van het onderzoek van de vol- 
gende instruktie in het geheugen. Is het daarentegen een andere dan de Y- 
toets geweest, dan voert de BNE het programma naar het label DNE. Er 
volgt de terugmelding “DONE”, ter afsluiting van de S-toetsroutine. 

Direkt na het label AGAIN wordt de subroutine OPLEN aan het werk 
gezet. De instruktielengte van de meest recente onderzochte instruktie 
wordt bepaald en vervolgens (NEXT) krijgt de instruktiewijzer CURAD 
een zodanige stand dat hij (of zij? je weet dat nooit!) op de volgende 
instruktie in het geheugen staat gericht. Of er nog zo’n volgende instruktie 
is blijkt uit de stand van de N-vlag na afloop van NEXT. Deze kwestie is 
uitgebreid besproken bij de L-toetsroutine van punt 7. Indien er geen 
instrukties meer zijn te onderzoeken is het label DNE aan bod, voor de 
afsluitende terugmelding “DONE”. U kunt uit figuur 4b opmaken dat de 
enige "uitweg" uit de S-toetsroutine via het label DNE loopt. Dat is in 
overeenstemming met wat in hoofdstuk 13 is gezegd. Namelijk dat het 
!searchen”’ pas is afgesloten na de terugmelding “DONE”. 


1 De Z-toetsroutine bestaat uit een handvol instrukties die, links 
in figuur 4c, direkt volgen op het label BACK. Nadat is vastgesteld 
dat toets Z is ingedrukt wordt de inhoud van de adreswijzer TABLE gelijk 
gemaakt aan de inhoud van BEGAD. Die TABLE werd totnutoe uitslui- 
tend gebruikt bij de assembler (zie hoofdstuk 9 van boek 2), maar hebben 
we nu als hulpadreswijzer nodig, bij het bepalen van de lengte van de 
instruktie, die zich in het geheugen direkt voor de als laatste afgedrukte 
instruktie bevindt. Die lengte is nodig om van de inhoud van de instruktie- 
wijzer CURAD af te trekken, zodat, na de sprong naar WARM, de vorige 
instruktie in het geheugen wordt afgedrukt. En dat is in overeenstemming 
met de instruktie-mintoetsfunktie van toets £. 
Direkt nadat TABLE aan BEGAD gelijk is gemaakt wordt er gekeken of 
TABLE gelijk is aan CURAD, dus of de eerste instruktie van het pro- 
gramma als laatste is afgedrukt. In dat geval is er geen '"yorige instruktie” 
om af te drukken en volgt de sprong terug, via het label BCKB, naar het 
centrale label WARM. Met als gevolg dat opnieuw (want CURAD blijft dan 
ongewijzigd) die eerste instruktie wordt afgedrukt. 
Hoe anders loopt het allemaal indien de instruktiewijzer CURAD niet op 
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Vervolg van figuur 4b (pagina 110) 


Figuur 4c. Het tweede deel van de hoofdroutine van PME omvat de toetsroutines van 
de toetsen Z, T,‚ P en X, alsmede de tnput-toetsroutines (toetsen 0... F). 


het eerste adres BEGAD staat gericht. In dat geval wordt de programma- 
lus rond het label BCKA een aantal keren doorlopen. Het is de bedoeling 
dat TABLE net zo lang met een bedrag, gelijk aan de lengte van de onder- 
zochte instruktie wordt verhoogd totdat TABLE gelijk is aan CURAD. 
Vervolgens moet CURAD worden verlaagd met een bedrag, gelijk aan de 
meest recente inhoud van de geheugenplaats BYTES. Vandaar dat direkt 
na BCKA de opcode van de onderzochte instruktie de accu in gaat en dat 
de lengte van die instruktie wordt bepaald (LENACC). De inhoud van 
TABLE wordt nu verhoogd met een bedrag, gelijk aan die instruktielengte. 
Dat gebeurt in de subroutine INCTAB van figuur 8b. 

En nu volgt het onderzoek of de verhoogde TABLE gelijk is aan CURAD 
of niet. Is dat niet het geval, dan gaan we terug naar BCKA voor een 
volgende onderzoeksronde. Is echter de nieuwe stand van TABLE gelijk 
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Figuur 8. De subroutines DECURA (figuur 8a) en INCTAB (figuur 8b) spelen een rol 
bij de Z-toetsroutine (instruktiemintoets). 


aan die van CURAD, dan volgt de afwikkeling van de subroutine DECURA 
van figuur 8a. Van de inhoud van de instruktiewijzer CURAD wordt de 
meest recente inhoud van de geheugenplaats BYTES afgetrokken. Dat is 
dus hetzelfde bedrag als het bedrag dat, bij TABLE opgeteld, tot de 
konklusie TABLE = CURAD leidde. Nu rest nog een sprong terug, naar 
het centrale label WARM. Dat gaat via het tussenlabel BCKB. Direkt na 
WARM wordt dus de vorige instruktie afgedrukt. 


1. Het verhaal van de T-toetsroutine is buitengewoon snel verteld. 

Het zijn de instrukties die in figuur 4c direkt volgen op het label 
TOF. Zodra PME aan de weet komt dat toets T is ingedrukt volgt de 
subroutine BEGIN. De instruktiewijzer CURAD wordt op BEGAD gericht 
en na de terugkeer naar WARM, via het tabel TOFEND, wordt de eerste 
instruktie van het programma afgedrukt. Het mag ook een label zijn, maar 
dat wist u al. 


1. Dan de P-toetsroutine. Dus alle instrukties van figuur 4c die direkt 
volgen op het label SXTEEN. Zodra er sprake is van een ingedrukte 
P-toets krijgt de als instruktieteller gebruikte geheugenplaats COUNT de 
waarde $9F (decimaal: 15) toegekend. Dat betekent dat er naast de 
als laatste afgedrukte instruktie (met op dezelfde regel op de rechter 
kolom 
een afgedrukte P) normaal gesproken 15 instrukties worden afgedrukt. 
Dus in totaal 16 instrukties. Van die zestien instrukties is er dus al één 
afgedrukt vóór het indrukken van toets T. Veertien instrukties worden er 
gedurende de programmalus rond het label LINES afgedrukt en de vijf- 
tiende wordt afgedrukt direkt na de terugkeer naar het centrale label 
WARM. 
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Nu de details. Direkt na LINES wordt de lengte van de al afgedrukte 
instruktie bepaald (LENACC). De nieuwe inhoud van de instruktiewijzer 
CURAD is in overeenstemming daarmee aangepast (NEXT) en COUNT 
wordt met één verlaagd. Indien dat tot een eindwaarde nul van COUNT 
leidt volgt via de BEQ en het tussenlabel TOFEND de sprong terug naar 
WARM, voor de afdruk van de vijftiende instruktie. Zolang de inhoud van 
COUNT nog niet nul is geworden volgt het onderzoek of de opcode van de 
af te drukken instruktie 77 is. Dus of de laatste, afsluitende “instruktie”’ 
van het programma aan bod is. Is dat het geval, dan wordt deze instruktie 
als laatste afgedrukt, dat wil zeggen: na de sprong terug naar WARM, via 
TOFEND. | 

Maar normaal gesproken wordt nu de instruktie afgedrukt (subroutine 
PRINS) en gaat PME terug naar LINES. De eerste vier instrukties, volgend 
op het label LINES, worden 15 keer doorlopen omdat je de inhoud van 
COUNT 15 keer kunt verlagen voordat deze nul wordt. Veertien keer 
wordt de rest van het programma na LINES afgedrukt en veertien keer 
volgt de subroutine PRINS direkt. De vijftiende doorloop geeft aanleiding 
tot de sprong naar WARM: de vijftiende en laatste instruktie wordt afge- 
drukt. Dit alles onder de aanname dat er niet tussentijds een “instruktie”” 
met de opcode 77 is ontdekt. 


| De X-toetsroutine bestaat uit de instrukties van figuur 4c die direkt 
aansluiten op het tabel ASMBLR, en verder uit de drie instrukties 
die volgen op het label IOCORR. De toetsroutine heeft alles te maken met 
de voorbereiding van het assembleren van het programma. Direkt nadat 
er is vastgesteld dat toets X is ingedrukt wordt de NMI-sprongvektor gespe- 
cificeerd op een adres dat hoort bij het label ASSEND. Nadat het pro- 
gramma is geassembleerd en nadat de toets ST/NMI van het standaard- 
toetsenbord is ingedrukt volgt de sprong terug naar PME, naar het label 
ASSEND. En wat er dàn gebeurt is in punt 17 besproken. 
Nadat de NMI-sprongvektor is gespecificeerd volgt de sprong naar het 
labet IOCORR. Het richtingsregister PBDD van poort B krijgt dezelfde 
inhoud toegewezen als het geval is na de afwikkeling van de RESET -voor- 
routine van de standaard-monitor. Zie hoofdstuk 7 van boek 2. De overige 
I/O hoeft niet te worden aangepast. Nú weerhoudt niets PME ervan om 
naar de assembler te springen: JMP-ASSEMB. Dat betekent dat het pro- 
gramma nu gaat worden geassembleerd. Hoe dat precies in zijn werk gaat 
kunt u uitgebreid lezen in hoofdstuk 9 van boek 2. 


1'7 Na het assembleren. Het programma bevindt zich nu “in het 
kraambed", Zodra het assembleren, op initiatief van toets X, is 
voltooid lichten de zes displays van het zeven-segmentdisplay op. U dient 
nu de toets ST in te drukken. Dat heeft tot gevolg dat er een NMI op- 
treedt. De NMI-sprongvektor vertelt het programma dat de instrukties 
vanaf het label ASSEND moeten worden afgewerkt. En dat begint met de 
subroutine RESTTY. Deze subroutine is in PM gebruikt voor het herstel 
van de I/O zoals die geldt voor PM (èn voor PME!), nadat de cassette- 
subroutine DUMP of RDTAPE is afgehandeld. Voor details: zie figuur 19b 
en de punten 27 en 28 van hoofdstuk 14. Eigenlijk hoeft alleen PBDD de 
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oude waarde terug te krijgen (zie punt 16), maar dat kost meer bytes dan 
de aanroep van RESTTY. 

We weten dat na het assembleren en na het indrukken van toets ST alle 
labels worden afgedrukt, die in het zojuist geassembleerde programma 
voorkwamen. Dat gebeurt in de label-afdrukroutine LABLST van figuur 9. 
Tijdens deze routine krijgt de adreswijzer TABLE, die ín punt 13 tijdelijk 
als hulpadreswijzer is “geleend’’, zijn oorspronkelijke funktie als onder- 
deel van de “tabeleindadreswijzer’’, terug. Aan het begin van de eerste fase 
van het assembleren krijgt TABLE een inhoud die overeenkomt met 
ENDAD minus FF. De beginwaarde van de geheugenplaats LABELS is FF. 
De tabelwijzer TABLE + LABELS bepaalt op welke geheugenplaats — die 
deel uitmaakt van de "‘labelgeheugenruimte’’ — er een labelnummer, dan- 
wel de bijbehorende ADH, danwel de bijbehorende ADL wordt opgeslagen. 
De beginwaarde van de tabelwijzer is zodanig dat deze staat gericht op 
ENDAD. Na de afwerking van een label (gevonden èn opgeborgen) wordt 
de inhoud van LABELS met $03 verlaagd. Tot zover enige herhalings- 
oefeningen van hoofdstuk 9; zie de pagina's 165... 167 van boek 2. 

In de routine LABLST van figuur9 worden de tussenwaarden van 
LABELS nagebootst in het Y-register. Dus LABLST begint met het aan 
FF gelijk maken van de inhoud van het Y-register. De inhoud van TABLE 
is, zoals gezegd, ENDAD minus FF. De instrukties vanaf het label LBLSTB 
houden zich bezig met het in de juiste volgorde afdrukken van de diverse 
labelonderdelen, waarbij telkens na het afdrukken van een onderdeel de 
inhoud van Y met één wordt verlaagd (DEY). 

Maar vóórdat label LBLSTB aan bod is volgt eerst nog een tweetal in- 
strukties vanaf het label LBLSTA. Er wordt begonnen op het begin van 
een nieuwe regel en het als labelteller gebruikte X-register krijgt de 
beginwaarde $94: op elke regel mogen maximaal vier labels worden 
afgedrukt. 

Op twee plaatsen na het label LBLSTB wordt de inhoud van Y tijdelijk 
bewaard in de geheugenplaats TEMPX. Dat is nodig omdat er twee terug- 
meldingen door PME moeten worden “uitgeroepen”. En dáárvoor is Y 
óók nodig. Dat is allereerst de melding “LAB $". Die wordt gevolgd door 
het in de accu zetten van het nummer van het (eerste) label dat tijdens de 
eerste fase van het assembleren is gevonden en opgeborgen. Dat gaat via de 
instruktie LDA-(TABLEL),Y waarbij Y een waarde heeft die gelijk is aan 
FF minus een aantal keren $93. Dat aantal is tijdens de eerste doorloop 
van LBLSTB gelijk aan nul en tijdens de laatste doorloop gelijk aan het 
totale aantal labels. 

Na het afdrukken van het labelnummer (PRBYT) volgt de terugmelding 
1. $’" Daarna wordt eerst het linker adresbyte ADH en dan het rechter 
adresbyte ADL van het label afgedrukt. Nadat er vervolgens een spatie Is 
afgedrukt (PRSP), om de labels op een regel van elkaar te scheiden, volgt 
de test (CPYZ-LABELS plus BEQ) of er nog labels zijn af te drukken of 
niet. Zo ja, dan wordt X met één verlaagd. De waarde van X geeft aan 
hoeveel labels er nog op de regel kunnen worden afgedrukt. En dan gaan 
we òf naar LBLSTA terug (ga verder met afdrukken op het begin van een 
nieuwe regel), òf naar LBLSTB: ga verder op dezelfde regel. 

Indien alle labels zijn afgedrukt volgt de sprong naar het label LABLSTC. 
Nadat de instruktiewijzer CURAD op de eerste instruktie van het geas- 
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Figuur 9. De label-toetsroutine LBLST wordt doorlopen nadat het programma 

is geassembleerd en nadat de NMI/ST-toets van het standaard-hexadecimale toetsen- 
bord is ingedrukt. Hij zorgt ervoor dat van elke gevonden label het nummer en het 
bijbehorende adres wordt afgedrukt, met maximaal vier labels op een regel. De labels 
worden afgedrukt in een volgorde met toenemend adres. 
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sembleerde programma is gezet (BEGIN) volgt de sprong naar het tabel 
EDITW (zie figuur 4a). Na de terugmelding “PM EDITOR" wordt de 
eerste instruktie van het geassembleerde programma afgedrukt. 

Nu nog even die kwestie van die CPYZ-LABELS. Hoe zit dat precies? 
Wel, telkens nadat, tijdens de eerste fase van het assembleren, een label is 
gevonden, en opgeborgen, wordt de inhoud van LABELS met $03 ver- 
laagd, vanuit de beginwaarde FF. In figuur 9 wordt, na LB LSTB de inhoud 
van Y drie keer met één verlaagd (DEY). De eindstand van Y nadat alle 
labels zijn afgedrukt is dus dezelfde als de eindstand van LABELS nadat 
alle labels van het te assembleren programma zijn gevonden, en in de label- 
geheugenruimte opgeslagen. Voor deze kwestie raadplege men óók figuur 4 
op pagina 166 van boek 2. 


1 Tot slot van de PME-hoofdroutine bespreken we de Input-toets- 
routine. Zoals in hoofdstuk 13 van dit boek is uiteengezet is het 
niet nodig dat vooraf een niet-numerieke toets (funktietoets) wordt inge- 
drukt. Er kan dus zondermeer worden begonnen met de opgave van de toe 
te voegen instruktie, via het indrukken van minstens twee numerieke 
toetsen. Dit betekent dat, indien het laatste label INPUT (zie figuur 4c) 
van de PME-hoofdroutine wordt bereikt, de accu hoogstwaarschijnlijk 
de ASCIl-kode van een numerieke toets zal bevatten. Dit is in overeen- 
stemming met de regel dat numerieke data automatisch wordt behandeld 
als een deei van een toe te voegen instruktie, tenzij voorafgaand daaraan 
de toets S of | is ingedrukt. En als dàt het geval is wordt de te volgen data 
niet via het label INPUT binnengehaald. Zie hiertoe de punten 11 en 12 
van dit hoofdstuk. 
De Input-toetsroutine omvat de instrukties in figuur 4c vanaf het label 
INPUT. Het begint met de aanroep van de subroutine BYT. Deze laatste 
is gelijk aan de subroutine BYTIN, op de eerste RECCHA van BYTIN na. 
Die is niet nodig omdat de RECCHA na het centrale label WARM als 
zodanig dienst doet. Zie figuur 6 en punt 9. 
Na BYT staat de opcode van de toe te voegen instruktie in de accu. De N- 
vlag vertelt ons of er een niet-numerieke toets is “geoogst”. In dat geval 
voert namelijk de op BYT volgende instruktie BMI via het tussenlabel 
WRONG naar het label ILLKEY, voor de terugmelding “ILLEGAL 
KEY”. 
En dan is men toe aan de subroutine READ. Die valt bijna helemaal samen 
met READIN op de eerste twee instrukties van READIN na. Zie figuur 5 
en punt9. READ begint met het in POINTH zetten van de zojuist inge- 
lezen opcode; vervolgens wordt de rest van de instruktie ingelezen. Een 
aansluitende instruktie BMI zorgt ook nu voor een eventuele terugmelding 
"ILLEGAL KEY". | 
En dan vervolgens het welbekende duo OPLEN plus NEXT. De instruktie- 
wijzer CURAD wordt verhoogd met de lengte van de instruktie die als 
laatste is afgedrukt. Dus niet met de lengte van de nieuwe, toe te voegen 
instruktiel Dit betekent dat de nieuwe instruktie, als ie in het geheugen 
wordt toegelaten, op een plaats of plaatsen terechtkomt, direkt volgend 
op de plaats(en) van de als laatste afgedrukte instruktie. De geheugen- 
plaats BYTES bevat de lengte van de nieuwe instruktie nadat de inhoud 
van TEMPX — tot standgekomen tijdens READ/READIN — in BYTES 


125 


is gekopieerd. Zodra dat gebeurd is volgt de sprong naar het label MEM. 
De rest van de bespreking van de Input-toetsroutine is identiek aan de 
tweede helft van de bespreking van de \-toetsroutine. Zie hiervoor punt 
11. 

Nog één opmerking. Of er nu plaats is voor de toe te voegen kandidaat- 
instruktie of niet — de instruktiewijzer CURAD wordt opgehoogd. Dit is 
de reden dat na de terugmelding “FULL” een instruktie wordt afgedrukt 
die hoort bij de verhoogde stand van CURAD. 


19 De voorroutine die hoort bij de lauwe start van PME bestaat uit 
| de instrukties die in figuur 4a volgen op het label SEMIW. Het 
begin van deze voorroutine is exakt gelijk aan het begin van de voorroutine 
EDITC, zie punt 4. Dus: de ingangsbuffers nul maken, de terugmelding 
“BEGAD, ENDAD:”’, de opgave van BEGAD en ENDAD door de gebrui- 
ker (subroutine INPAR) en het opnieuw beginnen (BMI) als er bij die 
opgave iets fout is gegaan. Vervolgens krijgen de geheugenplaatsen 
BEGADL, BEGADH, ENDADL en ENDADH een inhoud die in overeen- 
stemming is met de twee opgegeven adressen. Verder wordt de variabele 
eindadreswijzer CEND op het eindadres ENDAD gericht en de instruktie- 
wijzer CURAD wijst op het beginadres BEGAD (JSR-BEGIN). Na de 
sprong naar het label BRK van figuur 4a wordt de BRK-sprongvektor 
gespecificeerd. Na de terugmelding van “PM EDITOR” komen we terecht 
bij het centrale label WARM van de hoofdroutine PME. 

De lauwe startingang SEMIW van PME is met name bedoeld voor het 
bekijken van een programma, in RAM of in EPROM, dat kant en klaar is. 
En met name de toetsen SP, S, L en P hebben dan een belangrijke taak te 
verrichten. Bij de bespreking van de genoemde toetsfunkties, in dit hoofd- 
stuk, hebben we kunnen zien dat “het ophoudt” zodra de variabele eind- 
adreswijzer CEND is bereikt. Welnu: het grote voordeel van de lauwe 
startingang van PME is dat CEND automatisch gelijk wordt gemaakt aan 
ENDAD — die men zèlf kan kiezen! Overigens: die lauwe start is eveneens 
in hoofdstuk 5 van boek 2 (standaard-editor) aan de orde gekomen. Alleen 
moet je daar een hele serie buffers stuk voor stuk, “met de hand”, spe- 
cificeren. 


J Tot slot van dit hoofdstuk de bespreking van de voorroutine die 
hoort bij de warme CEND-startingang van PME. Deze voorroutine 
staat in figuur 10. Het startlabel heet SEACND. Het begin ziet er net zo uit 
als het begin van EDITC en SEMIW. We beginnen de bespreking van figuur 
10 dan ook bij het label SCNDA. Nadat de instruktiewijzer CURAD op 
het eerste adres BEGAD is gericht (JSR-BEGIN) wordt de opcode van de 
onderzochte instruktie de accu binnengehaald en gaan we na of het soms 
de pseudo-opcode 77 is. Zo ja: werk de instrukties vanaf het label SCNDB 
af en zo nee: verhoog CURAD met de lengte van de meest recente onder- 
zochte instruktie en ga de nieuwe, door CURAD aangewezen instruktie 
onderzoeken op een opcode 77: LENACCG, NEXT plus JMP-SCNDA. 
Zodra de opcode 77 is vastgesteld (label SCNDB) wordt het adres CURAD 
met de opcode 77 met één verhoogd. Deze met één verhoogde waarde 
wordt toegekend aan de variabele eindadreswijzer CEND. Na de sprong 
naar het label BRK van figuur 4a volgt de specifikatie van de BRK-sprong- 
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* 10 $ 17C5 


SEACND 


BEGAD,ENDAD :” 










BEGIN 


SCNDA 


Di 








LDYIM $0d 
_ LDA{CURADL), Y LDAZ — CURADL 
CMPIM $77 


he 


LENACC 
JMP — SCNDA 


Cc 


L 


CO 


ADCIM $91 

STAZ — CENDL 

LDAZ — CUKADH 
ADCIM $9Y 

STAZ —-CENDH [| CEND:=CURAD+1 
JMP — BKK 


BRK 81914 - 10 
$ 1533 


Figuur 10. De voorroutine SEACND wordt doorlopen nadat PME is gestart via de 
warme CENDstartingang. De oorspronkelijke inhoud van de variabele eindadres- 
wijzer CEND wordt hersteld, mits er een ‘opcode’ 77 voorkomt in het programma! 


vektor en de terugmelding "PM EDITOR": we zijn bij het centrale label 
WARM van de hoofdroutine van PME aangeland. Het van de band gelezen, 
al dan niet geassembleerde programma heeft de oorspronkelijke BEGAD 
en CENDAD teruggekregen. De waarde van ENDAD hoeft niet perse gelijk 
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te zijn aan de oorspronkelijke waarde. Dit omdat men eventueel aan het 
begin van de warme CGEND-start van PME een hogere ENDAD kan opge- 
ven omdat men verwacht dat de toevoeging van instrukties aan het van de 
band gelezen programma dat noodzakelijk maakt. Want anders loopt men 
het gevaar van de terugmelding “FULL”. Het wordt natuurlijk vervelend 
als ENDAD al op het uiterste randje van RAM-geheugen is gespecificeerd: 
op het adres $97FF. 

En CURAD? Na het afwerken van de instrukties van figuur 10 is de eind- 
waarde van CURAD het adres met de opcode 77. Dus niet het adres 
CEND! Kijk maar: bij de instrukties vanaf het label SCNDB van figuur 10 
komen geen instrukties STAZ-CU RADL en STAZ-CURADH voor. 

U ziet in figuur 10 ook wat er gebeurt als er geen 77 voorkomt in het 
onderzochte programma: de programmalus rond het label SCNDA wordt 
oneindig lang doorlopen! 

Indien u de Input- en l-toetsroutines goed hebt bestudeerd kunt u nog een 
andere toepassing van de warme CEND-ingang van PME bedenken. Indien 
namelijk een kandidaat-instruktie in het geheugen is geweigerd (terug- 
melding “FULL'), is GEND wèl, maar de 77 niet opgeschoven. Zie de 
laatste alinea van punt 10 (subroutine CHECK). Indien het nog moge- 
lijk is om ENDAD te verhogen, dus indien er alsnog plaats kan worden 
gemaakt voor de kandidaat-instruktie en eventuele dáárop volgende in- 
strukties, kan men de verhoogde ENDAD (en dezelfde BEGADI) het beste 
opgeven via de warme CEND-startingang van PME. Want nadat dit is 
gebeurd loopt GEND automatisch weer in de pas met het adres met de 
opcode 77. 
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16 


1152 bytes TM-software 


De cassette-software 


De ondertitel van hoofdstuk 10 van boek 3 luidt: “Data van, 
naar en áán de lopende band’. Het zal duidelijk zijn dat 
daarmee in ieder geval de cassette-band is bedoeld. Maar dat 
"opende band’ wekt eveneens associaties op met een fabrikage- 
proces en dan rijst natuurlijk de vraag hoe het allemaal in zijn 
werk gaat. Hoe ziet de software eruit die de verzorging van een 
datazending naar de cassette-band tot taak heeft? Hoe leest de 
junior-computer een bepaalde, door de gebruiker gewenste 
datazending van de band? Hoe zit het hoofdprogramma van TM 
in elkaar? 

Vragen en nog eens vragen. Met als gevolg een aantal uitgebreide 
antwoorden. En wel in dit hoofdstuk. Eerst gaan we de “super- 
subroutine’’ DUMP bespreken. Deze subroutine wordt door de 
junior-computer aan het werk gezet zodra er een datazending op 
de band moet worden geschreven. Hij wordt niet alleen vanuit 
TM maar ook vanuit het systeemprogramma PM aangeroepen; 
tevens is deze subroutine in eigen software toe te passen. 

Het zusje van DUMP is de “super-subroutine’”” RDTAPE. Deze 
subroutine is er voor het van de band lezen van een vooraf 
door de gebruiker opgegeven datazending. Voor deze subroutine 
gelden dezelfde toepassingsmogelijkheden als voor DUMP. 

Het systeemprogramma Tape Management, ook wel Tape 
Monitor’’ genoemd, is opgebouwd rond de twee cassette-sub- 
routines. Het programma is een alternatief voor PM — dat 
nagenoeg dezelfde cassette-toetsfunkties kent — in het geval dat 
men afziet van een uitbreiding van de junior-computer met 
randapparatuur. Het programma TM is namelijk gebaseerd op 
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het gebruik van het standaard-toetsenbord in kombinatie met 
het eveneens al “in den beginne’ aanwezige zesdelige zeven- 
segmentdisplay. 

Net als in de andere software-hoofdstukken van dit boek zuilen 
de diverse onderdelen punt voor punt worden besproken. Dit 
hoofdstuk kan men dus eveneens opvatten als een soort "data- 
zending”, waarbij de punten de bytes voorstellen. En na het 
lezen van déze zin heeft u de 255 synchronisatie-karakters al 
achter de rug! 


Even in het kort het programma van dit hoofdstuk: Eerst gaan we het 
hebben over de subroutine DUMP en de bijbehorende subroutines (je zou 
kunnen spreken van “sub-subroutines”; punten 1 t/m 9). Daarna volgt een 
uitgebreide bespreking van RDTAPE en zijn “sub-subroutines’” (punten 10 
t/m 19). Pas dan zijn we toe aan de hoofdroutine en de subroutines van 
TM (punten 20 t/m 28). En tot slot volgt een “‘datazending” over de 
PL L-testsoftware: de punten 29 en 30. Maar nu dus eerst DUMP. 


1 Het gedetailleerde stroomdiagram van de subroutine DUMP staat in 
de figuren 1a (eerste helft) en 1b (tweede helft). Laten we maar eens 
gewoon bovenaan figuur la beginnen, dus met de instrukties vanaf het 
label DUMP tot aan het label DUMPT. Wat zien we? Vier geheugen- 
plaatsen, namelijk HIGHER, LOWER, FIRST en SECOND, krijgen een 
bepaalde inhoud toegewezen. Deze geheugenplaatsen spelen een belang- 
rijke rol bij de totale tijdsduur (de bittijd), alsmede de relatieve tijdsduren 
3600 Hz en 2400 Hz, van de naar de cassette-band verzonden bits, die deel 
uitmaken van een databyte of van de ASCil-kode van een verzonden 
karakter. In de punten 3 en 4 gaan we uitgebreid op deze kwestie in. 
Pas vanaf het label DUMPT in figuur Ta bemoeit de software zich met het 
dresseren van de I/O (poorten A en B van de PIA). Men zou intuïtief kun- 
nen verwachten dat dit als allereerste gebeurt. Waarom eigenlijk eerst die 
vier tijd-geheugenplaatsen specificeren? Het antwoord op deze vraag is 
miet zo moeilijk te bedenken. De subroutine DUMP wordt niet alleen van- 
uit TM of PM aangeroepen, maar is ook toe te passen in ego-software. 
Indien de gebruiker een bittijd wil kiezen die afwijkt van die van de junior- 
computer, dus indien de gekozen snelheid waarmee bits worden geschreven 
en gelezen afwijkt van die van de junior-computer, hoeft de gebruiker 
slechts de aangepaste acht instrukties vanaf het tabel DUMP in zijn soft- 
ware op te nemen en de subroutine DUMPT (niet DUMP!) aan te roepen. 
In punt 9 is de lees- en schrijfsnelheid aangepast aan het KlM-computer- 
systeem. 
De eerste negen instrukties vanaf het label DUMPT van figuur 1a hebben 
te maken met het vastleggen van de I/O ten dienste van het schrijven van 


130 


de datazending op de cassetteband. Wat heeft dit voor gevolgen voor poort 

B? Alle acht poortlijnen van poort B worden als uitgang geschakeld. Ver- 

dar krijgt PBD een inhoud $47. Dit heeft tot gevolg dat: 
de als cassette-dataingang/uitgang gebruikte poortlijn PB7 als uitgang is 
geschakeld; op de uitgang staat een logische nul; 

@ poortlijn PB6 als relais-stuuruitgang is geschakeld; op de uitgang staat 
een logische één. Dus is transistor T2 gesperd. Het INPUT -relais Rel is 
niet bekrachtigd en de groene INPUT-LED D4 is gedoofd (zie figuur 2 
op pagina 13 van boek 3); 

®@ poortlijn PB5 eveneens als relais-stuuruitgang is geschakeld. Op de uit- 
gang staat een logische nul. Transistor T3 geleidt. Het OUTPUT-relais 
Re2 is bekrachtigd en de rode OUTPUT-LED D5 licht op; 

@ (omdat geldt: PB4 PB3 PB2 PB1 = G11 = DCBA) de displayschakelaar 
(1C7 van de standaard-junior-computer; zie figuur 9 op pagina 110 van 
boek 2} in de neutrale stand staat. Hoe verder ook de segmentschake- 
laar (poort A) is gedefinieerd — geen enkele van de zes displays kan 
oplichten en geen enkele van de toetsen kan op indrukken worden 
betrapt. Een en ander is in overeenstemming met het feit dat tijdens het 
op de band schrijven van een datazending het display is gedoofd (je ziet 
alleen de rode OUTPUT-LED oplichten) en de toetsen van het stan- 
daard-toetsenbord inaktief zijn; 

® de als seriële datauitgang gebruikte poortlijn PB@ als zodanig funktio- 
neert, ondanks dat we nu niets met randapparatuur (met uitzondering 
van de cassette-recorder!) te maken hebben. Op uitgang PB@ komt een 
logische één te staan. Dit komt overeen met de rusttoestand van deze 
seriële datalijn; er wordt niets verzonden, en wàt er aan interessants 
wordt verzonden loopt via poortlijn PB7. 

En dan nu poort A. De als segmentschakelaar gebruikte poortlijnen PAG 
PAG zijn als uitgang geschakeld en de als seriële dataingang gebruikte 

poortlijn PA7 is als zodanig geschakeld. De inhoud nul, die aan PAD is toe- 
gekend betekent dat alle segmenten in principe, wat poort A betreft, 
kunnen oplichten, ware het niet dat de toestand van PBD dat onmogelijk 
maakt. Indien er geen karakters door het randapparaat worden verstuurd 
heeft het bit PA7 een logisch nivo één. Dat komt overeen met het logische 
rustnivo van deze seriële datalijn. Overigens: aan eventuele, door een rand- 
apparaat naar de junior-computer verzonden karakters heeft de software 
van DUMP, en trouwens ook die van TM, geen enkele boodschap. 

We gaan verder met figuur 1a. Allereerst zij opgemerkt dat de inhoud van 

de geheugenplaats GANG uiteindelijk altijd gelijk is aan de inhoud van 

PBD. Waarom die geheugenplaats zo nodig moet komt in punt 2 aan de 

orde. Verder krijgen de geheugenplaatsen CHKH en CHKL, voor de bere- 

kening van de kontrolebytes, een beginwaarde nul. Nu zijn we toe aan de 
eigenlijke voorbereiding van het op de band schrijven van een datazending. 

De inhoud van de geheugenplaatsen SAL en SAH, voor het eerste adres van 

het te verzenden datablok, wordt gekopieerd in de inhoud van de buffers 

POINTL respektievelijk POINTH, die samen de adreswijzer POINT vast- 

leggen. En de laatste instrukties vóór het label SYNCS van figuur 1a hou- 

den zich bezig met het $FF maken van de inhoud van de als syncteller 
gebruikte geheugenplaats SYNCONT. 

N.B. Voortzetting van de bespreking van DUMP: zie punt 7. 


131 


he Ja seer 






LDAIM $7D 






STA HiGHER [wachttijd 3600 Hz 
LDAIM $C3 





STA LOWER wachttijd 2400 Hz 


LDAIM SJ 3 
STA FIRST aantal halve perioden 3600 Hz 
LDAIM $92 


STA _ SECOND 


aantal halve perioden 2400 Hz 






OUMPT $gor3 


LDAIM $47 


LDXIM SFF Wied 
STA PBD g1e0se111 


STA GANG 







STX PBDD PBS... PB7 uitgang 


LDAIM 549 







LDXIM $7F 
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LDA SAH 
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STX SYNCNT [SYNCNT FF (256) 
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LDAIM * A —$ 16 
JSR _OUTCH 
DEC _ SYNCNT 
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nog mees syncs? 
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81915 1e 


(nsar vaguur 1b) 


Figuur 1a. Het eerste gedeelte van het gedetailleerde stroomdiagram van de “super- 
subroutine” DUMP/DUMPT. | 
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81915 1b 


Figuur 1b. Het tweede gedeelte van het gedetailleerde stroomdiagram van DUMP/ 
DUMPT. | 
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) Nu eerst een aantal subroutines van DUMP die te maken hebben met 

het verzenden naar de band van een bit respektievelijk een ASCII- 
karakter, een datanibble en een databyte. Eerst de verzending van een 
bit. 

Op verscheidene plaatsen in boek 3 is het verzenden van bits naar de band 

al aan de orde gekomen. Ons toespitsend op de software, waarmee een en 

ander moet worden gerealiseerd vatten we het verhaal van de bittijden en 
van de hoge en lage frekwentie samen: 

e Poortlijn PB7 is het doorgeefluik’ voor het door de junior-computer 
via software gemaakte uitgangssignaal, dat bestemd is voor de cassette- 
recorder. 

© Een bit is vertaald in een signaal dat altijd begint met een blokgolf van 
een hoge frekwentie (3600 Hz) en altijd eindigt met een blokgolf met 
een lage frekwentie (2400 Hz). 

@ Het logische uitgangsnivo van PB/ moet op tijdstippen worden geïn- 
verteerd (één wordt nul, nul wordt één) die samenhangen met de 
blokgolffrekwentie die op dat moment aan bod is: 

© Een bit één levert een uitgangssignaal op dat bestaat uit drie halve 
perioden 3600 Hz, gevolgd door vier halve perioden 2400 Hz. 

© Een bit nul levert een uitgangssignaal op dat bestaat uit zes halve perio- 
den 3600 Hz, gevolgd door twee halve perioden 2400 Hz. 

We gaan nu twee subroutines bespreken: 

a. de subroutine HIGH van figuur 2a verzorgt een uitgangssignaal dat 

bestaat uit drie halve perioden 3600 Hz; 

b. de subroutine LOW van figuur 2b verzorgt een uitgangssignaal dat 

bestaat uit twee halve perioden 2400 Hz. 

We stellen vast dat het voor de verzending van een bit één nodig is dat 

één keer de subroutine HIGH moet worden aangeroepen, direkt gevolgd 

door twee keer achterelkaar de subroutine LOW. Voor de verzending van 
een bit nul moet eerst twee keer achter elkaar een beroep worden gedaan 
op de subroutine HIGH, direkt gevolgd door één keer de subroutine LOW. 

Verder is het belangrijk om vast te stellen dat, ongeacht het logische nivo 

van het te verzenden bit, de subroutines HIGH en LOW elkaar tijdens het 

verzenden van data of ASCII-karakters-sec altijd afwisselen. 


De subroutine HIGH van figuur 2a, in detail besproken. Wat moet er 
gebeuren? Er moet drie keer een halve 3600 Hz-periodetijd worden ge- 
wacht. Telkens na zo’n tijdje wachten moet het logische nivo van PB7 
worden geïnverteerd. Het aantal keren wachten ziet men terug in de in- 
houd van de geheugenplaats FIRST, die aan het begin van HIGH wordt 
gekopieerd in het X-register. 

Bij het gedurende een halve periodetijd 3600 Hz (HIGH) of 2400 Hz 
(subroutine LOW, zie punt 3) wachten wordt dankbaar gebruik gemaakt 
van de mogelijkheden van de interval-timer van de PIA, zoals beschreven 
in hoofdstuk 6, in boek 2. De timer wordt gestart (begin aftellen) door 
$7D in de geheugenplaats CNTA te schrijven. Er is dus sprake van een 
deelfaktor 1 en na de time out ontstaat er geen IRO. Zodra er sprake is 
van een time out wordt de wachtlus, bestaande uit de instrukties BIT- 
RDFLAG en BPL van figuur 2a, doorbroken. Vrijwel direkt na een time 
out wordt de timer opnieuw gestart. Een korte tijd later wordt het logische 
nivo van poortlijn PB7 op zijn kop gezet. Geïnverteerd dus. En daarmee 
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Xx 2a 


Figuur 2a. De subroutine HIGH verzorgt — bij een bit nul twee keer achter elkaar 
doorlopen — de 3600 Hz-fase van de verzending van een bít naar de band. 
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zijn we middenin die GANG-geschiedenis beland. 
Uit het wezen van de EOR-funktie (zie pagina 66 van boek 1) kan men 
opmaken dat de instruktie EOR #80 inderdaad tot gevolg heeft dat bit 7 
van de accuinhoud wordt geinverteerd, en dat de andere zeven bits onge- 
wijzigd zijn. Waarom dan niet 


LDA-PBD 
EOR #89 
STA-PBD 


in plaats van de instrukties 


LDA-GANG 
EOR #80 
STA-PBD 
STA-GANG 


van figuur 2a? Wel, heel eenvoudig omdat het lezen van een als uitgang 
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geschakelde poortlijn altijd tot gevolg heeft dat een bit één wordt binnen- 
gehaald! En dat kan natuurlijk nooit de bedoeling zijn. Vandaar de nood- 
zaak van de "schaduw-geheugenplaats” GANG en vandaar dat op een 
aantal plaatsen in de software een instruktie STA-PBD altijd vergezeld gaat 
met de instruktie STA-GANG. 

Omdat, vanuit een beginwaarde $93 voor X, de instrukties na het tabel 
HIG van figuur 2a drie keer worden doorlopen (vlak voor de BNE gaan 
we X verlagen via DEX) wordt er tijdens de subroutine HIGH drie keer de 
interval-timer gestart. Dat is dus dik in orde. Echter: er wordt óók maar 
drie keer de inhoud van PB7 geïnverteerd en als je drie halve periodes 
van 3600 Hz moet wachten moet dat toch vier keer gebeuren? Denk daar- 
bij aan de lagere-schoolsommen van het type: als er langs een weg van 
honderd meter een rij bomen moet worden geplant met om de tien meter 
een boom, hoeveel bomen heb je dan nodig? Elf, en geen tien! Kortom: 
hoe zit dat? 

Heel eenvoudig. Tijdens de laatste doorloop van de instrukties na het label 
HIG is X vóór de laatste DEX @1. Na het starten van de interval-timer en 
na het “omturnen’’ van PB7 en na de DEX wordt de subroutine HIGH 
verlaten (RTS). We hebben gezien dat het aantal keren dat CNTA tijdens 
HIGH wordt beschreven wèl in overeenstemming is met het aantal halve 
perioden. Dit betekent dat het wachten op de time out nà het verlaten van 
HIGH het afwerken van de laatste halve periode inhoudt. Het eerst- 
volgende starttijdstip van de interval-timer — opnieuw in de subroutine 
HIGH, danwel in de subroutine LOW — vindt plaats vlak voor de eerstvol- 
gende inversie van PB7. Dit laatste tijdstip betekent de voltooiing van een 
vorig aantal halve perioden (3600 Hz of 2400 Hz) en tevens het begin van 
een nieuw aantal halve perioden, van 3600 Hz. 

Dit betekent dat de instruktie BPL van figuur 2a pas dan niet meer tot 
springen (naar HIG) aanleiding geeft indien er een time out van de interval- 
timer is vastgesteld, die hoort bij de laatste vorige halve periode. 

Hoe zit het precies met de wachttijden? Bij het starten van het 
aftellen wordt de interval-timer geladen met $7D. Het duurt dus 7 x 16 + 
13 +1 = 126 us voordat er een time out optreedt. Nemen we aan dat er 
een vast tijdsverschil is tussen de start van de interval-timer en het ompolen 
van PB7. Dat tijdsverschil is 10 us: de tijd, nodig voor de uitvoering van 
de instrukties LDA-GANG, EOR #80 en STA-PBD. De tijd tussen twee 
opeenvolgende inversies van PB7 is dus gelijk aan de tijd tussen twee 
opeenvolgende starts van de interval-timer. 

En hoe lang duurt dàt? In ieder geval 126 gs plus de tijd die nodig is 
voor de uitvoering van de instrukties LDA-HIGHER en STA-CNTA. Dus 
minstens 126 +8= 134 us. Daar komen nog een paar HS bij omdat de 
wachtlus BIT — RDFLAG + BPL niet op exakt hetzelfde tijdstip hoeft te 
worden doorbroken als op het tijdstip van de time out. Maximaal komt er 
7 us bij: de tijd, nodig om de genoemde wachtlus één keer volledig te 
doorlopen. 

Dus de tijd tussen twee opeenvolgende inversies van PB7, de halve periode- 
tijd, ligt ergens tussen de 134 en 141 us. Een periodetijd 3600 Hz komt 
overeen met 277,8 us, derhalve een halve periodetijd met 138,9 us. Het 
verschil tussen de teorie en de software-praktijk is verwaarloosbaar klein. 
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Figuur 2b. De subroutine LOW verzorgt — bij een bit één twee keer achter elkaar 
doorlopen — de 2400 Hz-fase van de verzending van een bit naar de band. 


3 De bespreking van de subroutine LOW van figuur 2b kunnen we erg 

kort houden omdat deze geheel analoog is aan die van de subroutine 
HIGH van figuur 2a en punt 2. Alleen gaat het nu om twee halve perioden 
2400 Hz. Vandaar dat het X-register nu aan het begin van LOW de waarde 
$92 krijgt toegekend, namelijk de inhoud van de geheugenplaats SECOND. 
De wachtlus BIT — RDFLAG +BPL, met X gelijk aan $92, wordt door- 
broken zodra de laatste halve periode van het vorige aantal halve periodes 
3600 Hz (subroutine HIGH) of 2400 Hz (subroutine LOW) is voltooid. 
Vrijwel direkt daarna, 8 à 15 us later (met maximaal 7 us voor het te laat 
ontdekken van de time out), wordt de interval-timer opnieuw gestart. En 
weer 10 ys later wordt PB7 omgeturnd. Na het verlagen van X (DEX) her- 
haalt het beschreven spelletje zich nog één keer. Maar op de time out, ten 
gevolge van de laatste start van de interval-timer, wordt niet gewacht: RTS. 
Deze time out wordt nà de afsluitende RTS ontdekt tijdens de wachtlus 
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BIT — RDFLAG + BPL van de direkt aansluitende of eerstvolgende sub- 
routine HIGH of LOW. 

Even de tijden checken. De interval-timer krijgt een beginwaarde $C3, na- 
melijk de inhoud van de geheugenplaats LOWER. Het duurt dus 13 x 16 + 
3 +1 = 196 ys voordat er een time out optreedt. Daarbij moeten we nog 
8 us optellen: de tijd, nodig voor de uitvoering van de instrukties LDA- 
LOWER en STA-CNTA (zie ook HIGH; punt 2). Dus dan zitten we totaal 
op 196 +8 + 204 us. Nemen we weer aan dat de software van LOW er 
maximaal 7 us te laat achter komt dat er een time out is, dan komen we 
uit op 204 à 211 us. Een periodetijd 2400 Hz komt overeen met 416,7 us, 
een halve periodetijd 2400 Hz derhalve met 208,3 us. Ook nu is de over- 
eenkomst groot tussen de teorie en de praktijk. 


Á. Enige algemene opmerkingen over HIGH en LOW. Allereerst zij op- 
gemerkt dat bij de subroutines HIGH en LOW de nadruk ligt op het 
om de halve periodetijd ‘ompolen’’ van PB7. Het absolute nivo is volslagen 
onbelangrijk. Het gaat om de frekwentie-informatie, dus om de tijd tussen 
twee opeenvolgende inversies van PB/. 
Een aanroep van de subroutine HIGH wordt altijd direkt gevolgd door òf 
nog een HIGH, òf een subroutine LOW. Dit omdat de verzending van een 
bit naar de band altijd begint met minstens één HIGH en altijd eindigt 
met minstens één LOW. Dit betekent dat het wachten op de time out na 
de faatste halve periode 3600 Hz van HIGH voornamelijk plaatsvindt 
tijdens de BIT — RDFLAG + BPL-wachtlus van de aansluitende sub- 
routine HIGH of LOW. 
Bij LOW ligt dat anders. Zodra de enige of laatste subroutine LOW (hangt 
ervan af welk bit is verzonden) is afgewerkt, moet de laatste halve periode 
2400 Hz worden afgewerkt. De bijbehorende time out moet worden vast- 
gesteld in de eerstvolgende BIT — RDFLAG + BPL-wachtlus van de 
eerstvolgende subroutine HIGH. Het verblijf in die wachtlus zal echter 
korter duren dan in het geval van de overgang van HIGH naar LOW (ver- 
zending van één bepaald bit), waar we het een alinea geleden over hadden. 
Waarom? Omdat er intussen instrukties zijn afgewerkt die in het teken 
staan van de voorbereiding van het volgende te verzenden bit (label ONE 
in figuur 3; zie punt 5), datanibble (label NIBOUT) of ASCIl-karakter 
(label OUTCH in figuur 3). Het zal duidelijk zijn dat dat aantal instrukties 
niet zodanig veel tijd in beslag mag nemen dat er al een time out is opge- 
treden voordat de eerstvolgende subroutine HIGH wordt aangeroepen. 
Er is ongeveer 200 us beschikbaar en dat is genoeg voor de uitvoering van 
pakweg 50 instrukties van elk 4 ys. Dat is meer dan voldoende. Gelukkig 
is dat allemaal niet het geval met die dreiging van de overschrijding van de 
tijdslimiet. 
We gaan nu kijken hoe de bits, bytes en ASCIl-karakters stuk voor stuk 
naar de cassette-band worden gestuurd. 


De subroutine NIBOUT/OUTCH van figuur 3 houdt zich bezig met 
5 de verzending naar de cassette-band van alle acht bits van een ASCII- 
karakter, waarvan de kode in de accu staat. Die taak wordt uitgevoerd 
door de instrukties van figuur 3 vanaf het label OUTCH. In sommige geval- 
len wordt daaraan voorafgaand het programma vanaf het label NIBOUT 
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Figuur 3. Van de subroutine NIBOUT/OUTCH neemt de tweede helft, namelijk de 
instrukties vanaf het label OUTCH, de verzending naar de band van een ASC}HH- 
karakter voor zijn rekening. Het NIBOUT-gedeelte wordt doorlopen tijdens de 
verzending van een datanibbie en zorgt ervoor dat het datanibble wordt omgezet in 
de bijpassende ASCII-kode. 
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van figuur 3 afgewerkt. Laten we dat deel eerst maar eens in detail gaan 
bespreken. 

Een databyte gaat naar de band in de vorm van twee zendingen: voor elk 
datanibble één. De subroutine NIBOUT neemt de verzending van één data- 
nibble voor zijn rekening. Voordat men toe is aan de eigenlijke verzending 
(alles in figuur 3 vanaf het label OUTCH) moet dat datanibble worden 
omgezet in de bijbehorende ASCH-kode. 

Vlak voor de sprong naar NIBOUT is de inhoud van de accu gelijk aan GX, 
met voor X de mogelijkheden ®... F. Waarom dat zo is kan men aan de 
weet komen in punt6 en figuur 4 (subroutine OUTBTC/OUTBT). Voor 
nibbles @...9 geldt een ASCll-kode 39...39 en voor nibbles A … F 
de ASCHl-kode 41... 46. In het ene geval moet dus $39 bij de inhoud van 
de accu worden opgeteld en in het andere geval wordt de accu opgehoogd 
met $37. Dus er komt altijd $30 bij en soms óók nog $07. De instruktie 
CMP # DA scheidt de bokken @ ... 9 van de schapen A... F. 

De subroutine OUTCH begint met het toekennen van een inhoud $98 van 
de als bitteller gebruikte geheugenplaats BITS. En dan neemt de software 
van OUTCH acht keer achter elkaar een loopje met het label ONE van 
figuur 3. Telkens gaat er een bit naar de band. Eerst gaan alle bits van de 
accu-inhoud een plaatsje naar rechts (LSRA). Het meest rechtse bit bû 
beïnvloedt de carryvlag. Daarna wordt de verschoven accu-inhoud tijdelijk 
op de stapel gezet (PHA). Nu is het zover dat het bit kan worden ver- 
zonden. De carryvlag (BCC) zegt hoe dat moet gebeuren, want die heeft 
een stand die overeenkomt met de waarde (® of 1) van het te verzenden 
bit. Er volgt nu òf één keer een HIGH en twee keer een LOW (bit 1), òf 
twee keer een HIGH en één keer een LOW (label ZERO; bit nul). In ieder 
geval is het eind van het liedje (label ZRO) dat de verschoven accu-inhoud 
weer van de stapel wordt gehaald (PLA) en dat deze opnieuw kan wor- 
den verschoven (sprong naar ONE) voor de verzending van het volgende 
bit. Mits er natuurlijk nog minstens één bit te verzenden is. Want anders 
zijn we klaar. 

N.B. Het verhaal van de subroutines HIGH en LOW is beschreven in de 
punten 2, 3 en 4. 


De subroutine OUTBTC/OUTBT van figuur 4 zorgt ervoor dat een 

databyte naar de cassette-band wordt verzonden in de vorm van twee 
opeenvolgende verzendingen van een datanibble. Die taak wordt verricht 
door de instrukties vanaf het label OUTBT van figuur 4. In sommige ge- 
vallen moet er echter eerst nog wat anders gebeuren: Het 8-bits getal, 
gevormd door het databyte, moet worden opgeteld bij het 16-bits getal, 
gevormd door de inhoud van de geheugenplaatsen CHKH en CHKL. Dat 
heeft te maken met de aanpassing van de kontrolebytes CHKH en CHKL. 
Die checksomn-toestanden worden uitgevoerd door de instrukties vanaf het 
label OUTBTC tot aan het label OUTBT, in figuur 4. 
We gaan ervan uit dat vlak voor de aanroep van de subroutine OUTBTC 
het te verzenden databyte in de accu staat. Dat byte wordt meteen na het 
begin opgeborgen in het Y-register (TAY). Vervolgens wordt dit byte 
opgeteld bij het getal (CHKH, CHKL) De bekende standaard-zestien 
bits-optelling dus. Na het weer ophalen van de oorspronkelijke accu- 
inhoud (TYA) is het OUTBTC-gedeelte afgewikkeld. 
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Figuur 4. Van de subroutine OUTBTC/OUTBT neemt de tweede helft, namelijk de 
instrukties vanaf het label OUTBT de verzending naar de band van een databyte voor 
zijn rekening. Dat gebeurt in de vorm van twee opeenvolgende verzendingen van een 
datanibble. Het gedeelte vanaf OUTBTC wordt doorlopen indien de inhoud van de 
geheugenplaatsen CHKL en eventueel CHKH moet worden aangepast, in overeen- 
stemming met de getalwaarde die het te verzenden databyte vertegenwoordigt. 


De subroutine OUTBT begint eveneens met het opbergen van de accu- 
inhoud in het Y-register. Daarna volgen vier instrukties LSRA. Met als 
gevolg dat het linker nibble van de nieuwe accu-inhoud nul is en het 
rechter nibble gelijk is aan het oorspronkelijke linker nibble. Dât nibble 
wordt nu verzonden: de subroutine NIBOUT van punt5 en figuur 3. 
Daarna krijgen we de oorspronkelijke accu-inhoud terug (TYA) en maken 
het linker nibble nul via de bekende truuk AND # @F. Rest de verzending 
van het rechter nibble (subroutine NIBOUT) en een RTS, want we zijn 


klaar. 
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r/ (vervolg van punt 1) Bij de bespreking van de subroutine DUMP/ 
DUMPT waren we bij het label SYNCS van figuur Ja terecht geko- 
men. Het gaat om de verzending van 255 syncs (= synchronisatiekarakters) 
naar de band. Dat betekent dus: 255 keer de accu laden met de ASCII- 
kode $16 van de sync, 255 keer dit karakter (het officiële ASCII -karakter 
SYN) naar de band zenden (OUTCH; zie punt 5 en figuur 3) en 256 keer 
de inhoud van SYNCNT met één verlagen. De 256-ste keer vormt voor de 
aansluitende instruktie BNE aanteiding om het programma, onderaan 
figuur 1a, te verlaten en verder te gaan met het programma, bovenaan in 
figuur 1b. 
We weten uit hoofdstuk 11 van boek 3 dat na de synchronisatiekarakters 
het data-beginkarakter naar de band gaat. Het hoeft dan ook geen ver- 
bazing op te wekken dat, bovenaan in figuur Îb, de accu wordt geladen 
met $2A, de ASCll-kode van “*', en dat daarop de sprong naar de sub- 
routine OUTCH volgt. En wat is er dan aan de orde? Achtereenvolgens 
gaan we naar de band: het programmanummer (ID) en de adresbytes SAH 
en SAL van het eerste adres van het te verzenden datablok worden naar de 
band gestuurd. In alle drie gevallen gaat het om de verzending van een 
databyte. Dus in ieder geval de subroutine OUTBT wordt doorlopen. De 
databytes SAH en SAL moeten worden betrokken bij het CHKH/CHKL- 
gebeuren. Vandaar in dat geval de aanroep van de subroutine OUTBTC, 
zie figuur 4 punt 6. 


Het laatste gedeelte van de subroutine DUMP bestaat uit de instruk- 

ties vanaf het label DATATR in figuur 1b. De naam zegt het al: 
'"datatransport””. Want we zijn nu toe aan de verzending van het bij de 
datazending horende datablok. Dus alle data vanaf het adres SA tot het 
adres EA, oftewel tot en met LA, met LA gelijk aan EA-1. Het adres van 
de te verzenden data wordt aangewezen door de welbekende adres- 
wijzer POINT. Die is indertijd (zie figuur 1a en punt 1) aan SA gelijk 
gemaakt. 
De instrukties, direkt na het label DATATR gaan na of POINT soms gelijk 
is aan EA. Zo ja, dan volgt de afwikkeling van het ‘staartstuk’ van de 
datazending. Daarover straks meer. Zo nee, dan volgt de sprong naar het 
labet HEXDAT. De inhoud van de geheugenplaats, aangewezen door 
POINT, gaat de accu in en, na het aanpassen van CHKL en eventueel 
CHKH, naar de band: het beroep op de subroutine OUTBTC. Daarna 
wordt de adreswijzer POINT gericht op de volgende geheugenplaats en 
gaan we terug naar DATATR, mogelijk met als resultaat een nieuwe ver- 
zending van een databyte. 
Zodra het hele datablok van de datazending naar de band is gestuurd staat 
de BNE die in figuur 1b volgt op de instruktie CMP-EAL, niet langer op 
springen (naar HEXDAT). De datazending moet worden afgerond met 
achtereenvolgens het data-eindkarakter "/” (ASCIl-kode $2F), de eind- 
stand van CHKL (via de subroutine OUTBT, dus zonder aanpassing van 
CHKL en eventueel CHKH), de eindstand van CHKH en twee einde- 
zendingstekens EOT (ASCIl-kode $04). En dan zijn we klaar met de ver- 
zorging van de datazending. En zijn we dus eveneens klaar met de bespre- 
king van de ‘super-subroutine’” DUMP, op één klein dingetje na. 


142 


Het is al eerder opgemerkt: de subroutine DUMP, danwel de sub- 

routine DUMPT is óók te gebruiken, dus in te passen in zelf te ont- 
werpen software. Indien men uitgaat van een verzendsnelheid die overeen- 
komt met die van de junior-computer kan men volstaan met: 
JSR-DUMP. 
Indien men echter een afwijkende verzendsnelheid kiest (en dan waar- 
schijnlijk een lagere, want de betrouwbaarheid van de data-overdracht 
neemt sterk af naarmate de verzendsnelheid groter wordt), moet men de 
inhoud van minstens twee van de vier geheugenplaatsen HIGHER, 
LOWER, FIRST en SECOND wijzigen. In wezen moet men alle vier ge- 
heugenplaatsen opnieuw specificeren en naar de subroutine DUMPT 
springen. Dus niet naar DUMP! In het geval dat men met KlM-snelheden 
wil werken krijgt men niet te maken met een subroutine DUMP, maar 
met de subroutine DUMKIM van figuur 5. Eerst worden de vier genoemde 
geheugenplaatsen gespecificeerd, dan volgt de sprong naar de subroutine 
DUMPT, die we uitgebreid hebben besproken. We zien dat de inhoud van 
de geheugenplaatsen HIGHER en LOWER ongewijzigd is. Dat klopt, 
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Figuur 5. De subroutine DUMKIM is gelijk aan de subroutine DUMP, maar dan aan- 
gepast aan de voor de KIM-computer geldende bandtees- en schrijfsnelheid. 
Overigens: veel KIM-systemen werken met een schrijf/leessnelheid die gelijk is aan die 
van DUMP/DUMPT en RDTAPE: de zogenoemde ’'Hypertape'’-software. 
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omdat de uitgangssignalen, behorend bij het verzenden naar de band van 
een bit, van de KIM en van de junior-computer gelijkvormig zijn (zie 
figuur 6 van pagina 93 van boek 3). De inhoud van FIRST en SECOND 
zijn echter zes keer zo hoog, omdat het bij de KIM zes keer zo traag 
toegaat. 


10 We zijn toe aan de bespreking van de ""super-subroutine”” RDTAPE, 
ten behoeve van het van de cassette-band lezen van een door de 
gebruiker vooraf gespecificeerde datazending en het vervolgens in het ge- 
heugen van de junior-computer schrijven van het bij die datazending 
horende datablok. Het stroomdiagram van RDTAPE staat in de figuren 6a 
(eerste helft) en 6b (tweede helft). In dit punt bespreken we de eerste in- 
strukties van figuur Ga. 
De instrukties vanaf het label RDTAPE tot aan het label SYNC staan voor 
het overgrote deel in het teken van het vastleggen van de 1/0: de poorten 
A en B van de PIA. We zien dat aan PBD de inhoud $32 wordt toegekend 
en aan PBDD de inhoud 7E. Dit betekent dat: _ 
© de als cassette-dataingang/uitgang gebruikte poortlijn PB7 als ingang is 
geschakeld; op die ingang staat een logische nul; 
® de als seriële datauitgang gebruikte poortlijn PBG nu — in tegenstelling 
tot de situatie bij DUMP — als ingang is geschakeld, dus in wezen is 
uitgeschakeld; 
® poortlijn PB6 als relais-stuuruitgang is geschakeld. Op de uitgang staat 
een logische nul. Dat heeft tot gevolg dat transistor T2 geleidt. De 
groene INPUT-LED D4 licht op. Het INPUT-relais Re1 is bekrachtigd; 
® poortlijn PB5 eveneens als relais-stuuruitgang is geschakeld. Op de 
uitgang staat een logische één. Dit heeft tot gevolg dat transistor T3 
niet geleidt. Dus spert. De rode OUTPUT-LED D5 is gedoofd en het 
OUTPUT-relais Re2 is niet bekrachtigd; 
© (omdat geldt: PB4 PB3 PB2 PB1 = 1901) de displayschakelaar (1C7 van 
de standaard-junior-computer; zie figuur 9 op pagina 110 van boek 2) 
in een stand staat die inhoudt dat het display Di6 — dat ís de meest 
rechtse van de zes — kan oplichten. Van hoofdstuk 11 van boek 3 
weten we dat óók Di5 zo af en toe een oplichtende rol speelt. Over deze 
kwestie meer bijzonderheden in punt 15, bij de bespreking van de 
subroutine CHARVU/VU; 
En dan nu poort A. Aan PADD wordt een inhoud $7F toegekend, zo blijkt 
uit figuur 6a. Dat betekent dat de als segmentschakelaar gebruikte poort- 
lijnen PAG... PAG als uitgang zijn geschakeld en verder dat de als seriële 
dataingang gebruikte poortlijn PA7 als zodanig is geschakeld. Echter: de 
software van RDTAPE heeft verder geen boodschap aan eventuele, door 
een randapparaat naar de junior-computer verzonder karakters. Die soft- 
ware is nu uitsluitend geïnteresseerd in karakters, die door het “rand- 
apparaat” cassette-recorder worden verzonden. En dat loopt niet via PA7 
maar via PB7. 
In figuur 6a komen we géén instruktie STA-PAD tegen. Hoe zit dat? Wel, 
heel eenvoudig. Het register PAD krijgt pas een bepaalde inhoud toegekend 
tijdens het verblijf in de subroutine BTWEEN (zie punt 16) of in de sub- 
routine CHARVU/VU van punt 15. De inhoud van PAD is namelijk niet 
altijd dezelfde. | | 
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Figuur 6a. De eerste helft van het gedetailleerde stroomdiagram van de “super- 
subroutine’ RDTAPE. 
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Figuur 6b. De tweede helft van het gedetailleerde stroomdiagram van RDTAPE. 
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Voordat we verder gaan met de bespreking van RDTAPE zullen nu eerst 
alle, door RDTAPE gebruikte subroutines worden besproken. 
N.B. Vervolg bespreking van RDTAPE in punt 17. 


11 De meest elementaire subroutine van RDTAPE is wel de subroutine 
RDBIT van figuur /. Deze subroutine zorgt ervoor dat een bit van 
de band wordt gelezen en dat na afloop van deze subroutine de carryvlag 
ons vertelt of het zojuist ingelezen bit een één of een nul is. Deze sub- 
routine gaan we nu in detail bespreken. Helaas is dat een vrij ingewikkelde 
kwestie. 
Voordat we RDBIT in detail gaan bespreken gaan we het eerst maar eens 
hebben over de zes pulsdiagrammen van figuur 8a t/m figuur 8f. Zes 
logische "'heen-en-weer-plaatjes’” dus. De figuren 8a (bit nul) en 8d (bit 
één) komen ons bekend voor van boek 3, de hoofdstukken 10 en 11. Het 
gaat in beide gevallen om een stukje uitgangssignaal van de PLL in het 
ideale geval, dus zonder dat de ook al in boek 3 genoemde zogenaamde 
“PLL-jitter! optreedt. In werkelijkheid ziet het PLL-uitgangssignaal eruit 
als geschetst in figuur 8b (bit nul) en figuur 8e (bit één). De PLL-jitter is 
aangegeven met een paar “trillingen” tussen de nivo's één en nut. Dus net 
als bij de kontaktdender van toetsen (zie figuur 8 op pagina 107 van 
boek 2). In werkelijkheid ziet het er allemaal nog wat ingewikkelder uit. 
Maar waar het om gaat is dat er een paar opeenvolgende wisselingen van 
logisch nivo optreden die niets te maken hebben met het einde van een 
zojuist aangebroken 3600 Hz-periode of met het einde van een zojuist 
aangebroken 2400 Hz-periode. 
Voordat het PLL-uitgangssignaal naar de als ingang geschakelde poortlijn 
PB7 gaat wordt het eerst nog geïnverteerd; vandaar dat we bij de bespre- 
king van RDBIT te maken krijgen met de figuren 8c en 8f. 
Het totale ingangssignaal op PB7 bestaat uit een aaneenschakeling van 
stukjes figuur 8c en stukjes figuur 8f. Die aaneenschakeling hangt samen 
met de opeenvolgende waarden van de bits die van de band worden ge- 
lezen. Hóe de bittrein er ook precies uitziet, één ding is zeker: altijd wisse- 
len de 3600 Hz-perioden (begin van een bit) en de 2400 Hz-perioden 
(tweede fase van een bit) elkaar af. Deze wetenschap is essentieel voor een 
goed inzicht in de werking van RDBIT. 
En dan nu RDBIT. Figuur 7 dus. Het begint met een wachtlus: de instruk- 
ties BIT-PBD en BPL. Er wordt net zo lang gewacht totdat de N-vlag, dus 
bit 7 van PBD, dus PB7, één wordt. Bekijken we de plaatjes van de figuren 
8c en 8f goed, dan zien we dat het één worden van PB7 gebeurt aan het 
eind van een 3600 Hz-periode en dus aan het begin van een 2400 Hz- 
periode. We zitten dan dus al op de overgang van de eerste fase van een bit 
naar de tweede fase. Dat gebeurt op een tijdstip t1. Meteen daarna volgt de 
instruktie LDA-RDTDIS: het timer-dataregister wordt gelezen. Er wordt 
een momentopname gemaakt van de interval-timer, en wel een opname in 
de accu. 
Nu heeft het lezen van de timer alleen dan zin indien de interval-timer 
ooit, in het recente verleden, is gestart. Welnu, dat is inderdaad gebeurd. 
De stand van de timer is vrijwel direkt na afloop van de 3600 Hz-periode 
gelezen, op een tijdstip tl. Op het tijdstip tO, aan het begin van de 
3600 Hz-periode, is de timer voor het laatst gestart. Dat wil zeggen: op 
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Figuur 7. De subroutine RDBIT is er voor het lezen van de band van één bit. Na 
afloop is de carryvlag gelijk aan het ingelezen bit. 
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(@... ®). De software van RDTAPE (subroutine RDBIT) berust op de nivo's op 
poortlijn PB7. Derhalve zijn de plaatjes ©en D van belang. 


een tijdstip, vóór de sprong naar RDBIT. En hóe is dat dan tot stand ge- 
komen? Antwoord: tijdens de laatste fase van de uitvoering van RDBIT en 
dat is tijdens de vorige aanroep van RDBIT. En hier stuiten we op een 
wezenlijk kenmerk van RDBIT: Tijdens elke doorloop van RDBIT wordt 
een bit ingelezen en in de carry-vlag gezet. De laatste fase van RDBIT 
houdt tevens een voorbereiding in voor de uitvoering van de volgende 
RDBIT; de eerste fase van RDBIT is voorbereid tijdens de laatste fase van 
de vorige RDBIT. En hoe komt dat? Dat komt omdat we te maken hebben - 
met een bittrein van bits van de band, en dus met een keiharde regelmaat 
van 3600 Hz — 2400 Hz — 3600 Hz — enzovoorts. | 
Terug naar figuur 7. Na het lezen, in de accu, van de 3600 Hz-eindstand 
wordt de interval-timer opnieuw gestart. De instrukties LDY #FF en 
STY-CNTC houden in dat, vanuit een beginwaarde FF, de inhoud van het 
timer-dataregister om de 64 us met één wordt verlaagd. Zie hoofdstuk 6 
van boek 2. Na de time out treedt geen IRO op. 
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We zijn nu toe aan het tabel RDBA van figuur 7. Het nut van de wachtlus 
DEY + BNE rond het label RDBA is dat er gewacht wordt totdat de PLL- 
jitterperiode — als gevolg van de overgang van 3600 Hz naar 2400 Hz — 
gegarandeerd voorbij is. Er wordt dus gewacht totdat tijdstip t2 van figuur 
8c of 8f is aangebroken. Doen we dit niet, dan zou de vòlgende wachtlus 
— te weten de wachtlus rond het label RDBB, die vaststelt wanneer de 
2400 Hz-periode is afgelopen — vroegtijdig worden doorbroken, met alle 
nare gevolgen vandien. Hiermee wordt dus de tegenhanger van een valse 
start, namelijk een valse finish, voorkomen. 

Zodra, op het tijdstip t3, de 2400 Hz-periode voorbij is levert de instruktie 
BMI, die direkt volgt op de BIT-PBD van het label RDBB, geen sprong 
meer op. We zijn dan toe aan de buitengewoon interessante instrukties 
SEC en SBC-RDTDIS, die we apart, in punt 12, zullen behandelen. Hier 
volstaan we met de opmerking dat na afloop van deze instrukties de 
carryvlag gelijk is aan het zojuist van de band gelezen bit. Nadat dit is 
gebeurd wordt de interval-timer opnieuw gestart, op dezelfde manier als al 
eerder tijdens RDBIT is gebeurd. Dit is de voorbereiding voor het begin 
van een nieuwe, toekomstige RDBIT waar we het eerder over hadden, 
Immers: de interval-timer wordt gestart op (nagenoeg) het tijdstip t3. 

De laatste instrukties van RDBIT, vanaf het label RDBC, zorgen ook nu 
voor een vertraging. Met als gevolg dat de eerste wachtlus van de eerst- 
volgende RDBIT wordt bereikt op een tijdstip dat de PLL-jitter, die ge- 
paard gaat met de overgang van 2400 Hz op 3600 Hz, gegarandeerd voorbij 
is, Dus de eerste wachtlus van de volgende RDBIT wordt op zijn vroegst 
bereikt op een tijdstip t4. 

Over tijdstippen gesproken: Opgemerkt zij dat het tijdstip t3 van het 
ingelezen bit is op te vatten als het tijdstip tO voor het volgende in te lezen 
bit. Zie de figuren 8c en 8f! 


1 Nu nog de bespreking van de instrukties SEC en SBC-RDTDIS van 
RDBIT (figuur 7). We merken op dat de SEC ervoor zorgt dat 
vóór het aftrekken de carry één is en dus de borrow nul: er zijn "geen 
oude schulden te vereffenen’. Als gevolg van de instruktie SBC-RDTDIS 
wordt van de accu-inhoud, dus van de eindstand van de timer na afloop 
van de 3600 Hz-periode, de eindstand van de timer na afloop van de 
2400 Hz-periode afgetrokken. Immers: wat er van de inhoud van de accu 
moet worden afgetrokken komt tot stand door het lezen van de timer via 
SBC-RDTDIS. | 
Zowel aan het begin van een 3600 Hz-periode als aan het begin van een 
2400 Hz-periode start het aftellen vanaf een beginstand $FF. Om de 64 us 
wordt de stand met één verlaagd. Het is belangrijk om vast te stellen dat 
hoe langer een 3600 Hz-periode of een 2400 Hz-periode duurt, des te lager 
de bijbehorende eindstand van de timer is. 
Even terug naar het aftrekken van daarnet. Als de inhoud van de accu 
groter is dan of gelijk is aan de inhoud van het timer-dataregister op het 
tijdstip van SBC-RDTDIS, levert het resultaat van het aftrekken van een 
carry C = 1 op. Dat komt omdat er niet hoeft te worden geleend. Dus de 
borrow is nul. En er geldt: carry = borrow. Als de inhoud van de accu 
groter is dan de inhoud van het timer-dataregister, is de 3600 Hz-periode 
korter geweest dan de 2400 Hz-periode. En dàt betekent dat (zie figuur 8) 
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we te maken hadden met een bit één. 

Geheel analoog kan men aantonen dat we in het geval van een carry 
C =$, als gevolg van het aftrekken, te maken hebben met een bit nul. 
Dus: 

C=1 bit 1 

C =$ bit Ó 

Toen één van de schrijvers nadacht over die droge, vervelende carry-ge- 
schiedenis, zag hij één van zijn kinderen spelen met Lego-blokken. En toen 
werd figuur 9 geboren. Stelt u zich twee torens A en B voor. Beide zijn 
opgebouwd uit 256 (SFF!) blokken. Tijdens het afwerken van een 
3600 Hz-periode wordt van toren A om de 64 us een blok verwijderd. 
Hetzelfde gebeurt met toren B tijdens het afwerken van een 2400 Hz- 
periode. Nadat er een 3600 Hz-periode en een 2400 Hz-periode voorbij 
zijn is de toren A hoger dan toren B in het geval van een bit één: A min 
B = (een) positief (hoogteverschil). Toren A is lager dan toren B in het ge- 
val van een bit nul: A min B = (een) negatief (hoogteverschil). 

N.B. De jitter-wachtlussen van RDBIT hebben geen invloed op de beide 
timer-eindstanden. 

We hebben te maken met nominale tijdsverhoudingen 3600 Hz/2400 Hz 
van 2:1 of 1:2. Het resultaat van het aftrekken is dus altijd òf ondubbel- 
zinnig ‘dik positief’, òf "dik negatief", zelfs als men rekening houdt met 
een niet optimaal afgeregelde PLL. Bijvoorbeeld vanwege een afwijkende 
bandsnelheid. Voor deze kwestie: zie hoofdstuk 11 van boek 3. 


* 3 3600 Hz 2400 Hz 
8 


81915 9 





Ze 
Figuur 9. Dit torenmodel is van toepassing op de werking van de subroutine RDBIT 


van figuur 7. Er geldt de — op het eerste gezicht merkwaardige — regel: hoe lager, 
hoe langer. 
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Uit enig rekenwerk — dat wij u zullen besparen — volgt dat één bit totaal 
ca. 1250 gs duurt: 

bit nul: 833 us 3600 Hz + 417 us 2400 Hz; 

bit één: 417 us 3600 Hz + 833 us 2400 Hz. 

Een bittijd van 1250 gs komt overeen met een baudrate van 800 bits per 
sekonde. 

Omdat de timer om de 64 us met één wordt verlaagd zullen er gedurende 
833 us zo’n 13 verlagingen optreden en gedurende 417 us 6 verlagingen 
met één. Dit betekent (beginwaarde $FF, dat is decimaal 256) dat er nooit 
het gevaar dreigt dat er een time out optreedt. Anders gezegd: er dreigt 
nooit het gevaar dat de torens van figuur 9 volledig worden afgebroken. 
Men kan gerust de zes keer tragere KlM-datazendingen inlezen. Want of je 
nou van 256 13 of 6 x 13 = 78 aftrekt — de eindstand van de interval-timer 
is gegarandeerd positief. 

Er is nog één vraag rond de RDBIT te beantwoorden. Voor het eerste van 
de band gelezen bit is er geen voorgaande RDBIT waarin het begin van een 
3600 Hz-periode wordt vastgesteld in de vorm van het starten van de 
interval-timer. Is dat nou niet vervelend? Helemaal niet, want dat eerste 
bit hoort bij het eerste, van de band gelezen synchronisatie-karakter. En 
als het misschien fout gaat met dat eerste bit (er is altijd een kans dat het 
wèl goed gaat), gaat het misschien fout met het eerste synchronisatie- 
karakter. En wat dàn nog!? Er zijn er nòg 254! | 

Tot slot van dit punt nog een opmerking die te vergelijken is met punt 4 
(de elementaire subroutines HIGH en LOW van DUMP). Het zal duidelijk 
zijn dat de tijd die de uitvoering van de laatste instrukties van RDBIT kost 
(na het opnieuw starten van de timer), opgeteld bij de tijd, die de uit- 
voering van instrukties vergt die vóór de volgende RDBIT moeten worden 
uitgevoerd, niet zo groot mag worden dat de 3600 Hz-periode al voorbij is. 
Anders gezegd: Er zijn pakweg 400 gs beschikbaar voor de laatste vier 
instrukties van RDBIT (inklusief de RTS) plus de instrukties vóór de 
volgende aanroep van RDBIT. Het blijkt dat die tijd bij lange na niet wordt 
gebruikt. 


163 Na het inlezen van een bit (RDBIT) volgt het inlezen van een 
ASClIl-karakter. Dus het intezen van acht bits achter elkaar. Met 
andere woorden: we zijn toe aan de bespreking van de subroutine RDCH 
van figuur 10. 

Van DUMP herinneren we ons dat van een te verzenden karakter als 
eerste het meest rechtse bit b® naar de band gaat en als laatste het meest 
linkse bit b7. Zie figuur 3 en de bespreking van de subroutine OUTCH, in 
punt 5. Dat betekent dat, als we acht bits achter elkaar van de band lezen 
die allemaal bij hetzelfde ASClIl-karakter horen, als eerste bit b® wordt 
opgevist en als laatste bit b/. Daarmee ligt de gang van zaken in RDCH 
vast. 

Het begint met de toekenning van een inhoud $@8 aan het als bitteller 
gebruikte X-register. En dan volgt acht keer achter elkaar de uitvoering van 
de instrukties JSR-RDBIT (lees het bit van de band), ROR-CHAR (schuif 
alle bits van de geheugenplaats CHAR een plaatsje naar rechts en maak b7 
gelijk aan C) en DEX (voorbereiding volgende bit). 


Zodra alle bits zijn ingelezen volgen de instrukties ROL-CHAR en LSR- 
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Figuur 10. De subroutine RDCH zorgt voor het lezen van de band van een ASCII- 
karakter. 


CHAR. Dat heeft tot gevolg dat het bit b7 van CHAR gegarandeerd nul 
is. Dit bit b7 kàn als pariteitsbit worden gebruikt, maar dat doen we niet. 
Bij de verzending naar de band van ASCI-karakters is die b/ nul gemaakt. 
De inhoud van de geheugenplaatsen CHKH en CHKL is dáárop gebaseerd. 
Het gegarandeerd nul maken van b7 heeft tot gevolg dat een — door welke 
omstandigheden dan ook — ingelezen b7, gelijk aan één, géén problemen 
geeft met de eindwaarde van CHKH en van CHKL (zie punt 19). Indien 
daarentegen een datazending wordt gelezen waar wèl sprake is van de 
mogelijkheid dat b7 "officieel’' één kan zijn (en dat dus de inhoud van 
CHKH en CHKL daarmee in overeenstemming is) zal het altijd nul zijn 
van b7 bij het verlaten van RDCH tot gevolg hebben dat er een grote kans 
is dat eindwaarden CHKH/CHKL niet overeenstemmen en dat dus de sub- 
routine RDTAPE nooit zal worden verlaten (zie punt 19). 

De laatste twee instrukties van RDCH zorgen voor het kopiëren van CHAR 
in de accu (LDA-CHAR) en de afronding (RTS). 


1 Na het inlezen van een bit (punten 11 en 12) en van een ASCII- 

karakter (punt 13) ligt het voor de hand om ons bezig te gaan 
houden met het inlezen van een databyte, in de vorm van het twee keer 
achter elkaar inlezen van een nibble. Laten we datgene dat voor de hand 
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Figuur 11. De subroutine RDBYT zorgt voor het lezen van de band van een databyte. 
Dat gebeurt door twee keer achter elkaar een datanibble van de band te lezen. 


ligt maar gaan doen en de subroutine RDBYT van figuur 11 bespreken. 

Van de software van DUMP weten we dat van een databyte eerst het linker 
nibble wordt verzonden en dan het rechter nibble; zie punt6. Bij het 
teruglezen komen we dus eerst het linker nibble en dan het rechter nibble 


tegen. 
De subroutine RDBYT begint met een andere subroutine. Namelijk 
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Figuur 12. De "subroutine" ASCHEX (of nog juister: "'sub-sub-subroutine’’) wordt 
twee keer aangeroepen vanuit RDBYT (zie figuur 11). Hij zorgt ervoor dat de 
ASCIl-kode van een datanibble wordt omgezet in het datanibble. 






RDCH. Zie punt 13 en figuur 10. Er wordt dus een ASCII -karakter van de 
band gelezen en in de accu gezet. Er zijn nu twee mogelijkheden voor dat 
ASCIl-karakter: òf het is de kode van het data-eindkarakter ''/'’, òf het is 
de kode van een datanibble. In het ene geval verlaten we RDBYT meteen 
met een Z-vlag één, in het andere geval gaan we door naar het label RBB. 
En daar wordt voor de eerste keer een beroep gedaan op de subroutine 
ASCHEX van figuur 12, die we nu eerst zullen bespreken. 
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Indien het om de ASCII-kode van een datanibble gaat moet de ASCII -kode 
worden omgezet in de bijbehorende waarde van dat nibble. Dat gebeurt 
overigens pas nadat de software van ASCHEX zich ervan verzekerd heeft 
dat het inderdaad gaat om de ASCII-kode van een datanibble. 

Voor datanibbles ®...9 geldt een ASCIl-kode 39 ...39 en voor data- 
nibbles A ...F een ASClIl-kode 41... 46. Mocht er sprake zijn van een 
andere ASCll-kode dan de al genoemde kodes, dan moet dat kenbaar 
worden gemaakt in de stand van de een of andere vlag en moet eerst de 
subroutine ASCHEX en fater de subroutine RDBYT worden verlaten. 

De subroutine ASCHEX begint met een vraag-en-antwoord-spelletje, dat 
bestaat uit vier keer een instruktie CMP, gevolgd door een BMI. ASCII- 
kodes die niet bij een datanibble horen leiden tot het label NOTVAL: 
ASCHEX wordt verlaten met een N-vlag één. ASCII-kodes die wèl bij een 
datanibble horen leiden tot het label VALID. Nu kan de ASClI-kode 
worden ‘omgebouwd’ tot de waarde van het datanibble. In de gevallen 
D...9 kan men daartoe volstaan met het nul maken van het linker nibble 
(de instruktie AND #@F), in de gevallen A... F moet er eerst nog $09 
bij de accu-inhoud worden opgeteld. De subroutine ASCHEX wordt ver- 
laten met een N-vlag één. 

Terug naar RDBYT en terug naar figuur 11. De BMI na de eerste ASCHEX 
(label RBB) geeft direkt al aanleiding tot een RTS indien de N-vlag één is, 
dus indien er geen ASCIl-kode van een datanibble werd opgevist. Is dat wèl 
het geval, dan volgen er vier instrukties ASLA. Het behandelde datanibble 
wordt dus het linker nibble van de accu èn van de geheugenplaats BYTE. 
Daarna wordt er wéér een ASCI-karakter ingelezen: JSR-RDCH. Als blijkt 
dat het gaat om een data-eindkarakter verlaten we RDBYT (label RBA) 
met een Z-vlag één. Zoniet, dan doorlopen we de ASCHEX-molen op- 
nieuw. En mits de aansluitende BMI dat goed vindt gaan we, met behulp 
van de instruktie ORA-BYTE, het nieuwe datanibble dienst laten doen als 
rechter nibble van de accu-inhoud. Vlak voor de afsluitende RTS krijgt Y 
een waarde $01 toegekend. Daardoor zijn zowel de N-vlag als de Z-vlag 
nul. 


Nu nog een paar subroutines van RDTAPE die te maken hebben 
1 met het laten zien, op twee van de zes zevensegmentdisplays, van 
de stand van zaken rond het al dan niet inlezen van een datazending. Sub- 
routines dus, die zorgen voor de drie plaatjes van figuur 7 (hoofdstuk 11) 
op pagina96 van boek 3. Allereerst de subroutine CHARVU/VU van 
figuur 13. In de meeste gevallen wordt alles vanaf het label CHARVU tot 
en met de RTS doorlopen, in één ander geval (subroutine BTWEEN; zie 
figuur 14) wordt een beroep gedaan op de instrukties vanaf het label VU. 
Dat laatste is óók het geval tijdens het inschrijven in het geheugen van 
het gezochte, en gevonden datablok. 
De subroutine CHARVU begint met bewaren, op de stapel, van de accu- 
inhoud. Vervolgens worden de bits b® ... b6 van de accu-inhoud geïnver- 
teerd, met behulp van de instruktie EOR #7F. De nieuwe accu-inhoud is 
het nieuwe segmentpatroon (STA-PAD). En nu we het tòch over segment- 
patronen hebben: in figuur 15 staan alle 128 mogelijke segmentpatronen 
bij elkaar. Patronen van dezelfde rij hebben een onderling identiek linker 
nibble H. Patronen van dezelfde kolom hebben een onderling identiek 
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Figuur 13. Van de subroutine CHARVU/VU zorgen de instrukties vanaf het label VU 
ervoor dat de displays Di5 en Di6 elkaar aflossen. Omdat CHARVU en VU op regel- 
matige tijdstippen worden aangeroepen is er sprake van "'display-multiplexing’’: de 
beide displays lichten schijnbaar gelijktijdig op. Het gedeelte vanaf CHARVU zorgt 
ervoor dat de, op bit b7 na, geïnverteerde accu-inhoud dienst doet als segment- 
patroon op poort A. 
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Figuur 14. De subroutine BTWEEN zorgt voor de weergave van het "zoek plaatje'”: 

de drie horizontale segmenten lichten op. Zolang er geen syncs zijn vastgesteld licht 
Di6 op, af en toe afgewisseld door DiS. Zodra het lezen van de 255 syncs van de band 
begint wisselen Di5 en Di6 elkaar regelmatig af. 
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Figuur 15. Een overzichtstabel van alle 128 mogelijke segmentpatronen 
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rechter nibble L. Het preciese waarom? van die geïnverteerde accu-inhoud 
komt aan de orde bij de verdere bespreking van de subroutine RDTAPE 
(zie punt 17). Na de STA-PAD wordt de oorspronkelijke accu-inhoud weer 
in ere hersteld (PLA). Waarom wordt de inhoud van de accu eigenlijk be- 
waard? Omdat de accu een ASCll-karakter bevat dat nog verder moet 
worden verwerkt, maar vóórdat die verdere verwerking plaatsvindt wordt 
dat ASCIl-karakter in geïnverteerde vorm aan het display “gemeld, Zo 
zit dat. 

Om dezelfde reden is de eerste instruktie van de subroutine VU een PHA. 
En dáárop volgen vier instrukties die het volgende doen: 

A=PBD: @ @ 1 1 9 B 1 

EOR#02: 0 0 9 0 0 0 1 d 

resultaat: @ 9 1 1 6 @ B B (A =PBD = GANG) 

(nul als bits gelijk, één als bits ongelijk) 

We zijn uitgegaan van een beginwaarde $32 voor PBD, zoals die aan het 
begin van RDTAPE is vastgelegd. Die beginwaarde had tot gevolg dat het 
display Di6 kon oplichten. Zie punt 10. Het resultaat van het “EORren'' is 
dat het bit PB1 is geïnverteerd. Dat betekent dat de displayschakelaar 
(PB1 ...PB4) in een zodanige stand ís gezet dat nu het display Dib kan 
oplichten. Met andere woorden: er wordt overgegaan van Di6 op Di5. Was 
daarentegen vóór de aanroep van VU het display Dib aan bod, dan is na 
het “EORren’’ display Di6 weer aan bod. Met andere woorden: Na elke 
doorloop van VU gaat het ene display uit en het andere display aan; de 
displays lossen elkaar af. Indien er gedurende een bepaalde tijd maar vaak 
genoeg achter elkaar een JSR-CHARVU of een JSR-VU plaatsvindt lijkt 
het net alsof beide displays Dib en Di6 tegelijk oplichten! Dat is niets 
meer en niets minder dan het principe van de “‘display-multiplexing’’, 
dat we in hoofdstuk 7 (boek 2 dus) hebben leren kennen. 


1 De subroutine BTWEEN van figuur 14 wordt op die momenten 

aangeroepen dat het “zoekplaatje”, het tussenkarakter (drie hori- 
zontale oplichtende segmenten, zie figuur 7 (hoofdstuk 11) op pagina 96 
van boek 3), plaatje ®, wordt weergegeven. Afgezien van instrukties voor 
het bewaren van de accu-inhoud gaat het om LDA # 36 (het bijbehorende 
segmentpatroon, zie figuur 15), STA-PAD en JSR-VU (het ene display 
uit, het andere display aan). De situatie van PAD blijft net zo lang bestaan 
totdat, als gevolg van een JSR-CHARVU, een ander segmentpatroon op 
PAD wordt gezet. 


1'7 (vervolg van punt 10) We gaan verder met de bespreking van de 
subroutine RDTAPE. We waren toe aan het label SYNC van figuur 
Ga. Dáár gaan we nu verder. Het label SYNC begint met het toekennen van 
de inhoud $FF aan de geheugenplaats CHAR. Die CHAR speelde een rol 
bij RDCH, zie punt 13. De beginwaarde van CHAR lag niet vast aan het 
begin van RDCH en dat hoeft ook niet per se. Waarom dat hier wel gebeurt 
zal u op een later tijdstip, twee alinea's verder worden geopenbaard. 
Vanaf het label SYNCA is RDTAPE bezig met het inlezen van het eerste 
de beste bit van de band. Dat inlezen gaat via de subroutine RDBIT 
(punten 11 en 12). Zodra er een bit is vastgesteld gaat dit bit dienst doen 
als bit b7 van CHAR (ROR-CHAR) en van A (LDA-CHAR). Vervolgens de 
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instruktie JSR-BTWEEN: het tussenkarakter (drie horizontale segmenten) 
verschijnt in beeld. Zie punt 16. En daarna krijgen we de instruktie 
CMP # 16. Men vraagt zich dus af of er al een synchronisatie-karakter is 
ingelezen. Want $16 is de ASCII-kode van een synchronisatie-karakter. 
Men hoeft er niet verbaasd over te zijn dat er na de eerste RDBIT, dus na 
de eerste passage van het tabel SYNCA, nog geen sprake kan zijn van een 
synchronisatie-karakter. Immers: na de eerste passage van SYNCA is de 
inhoud van CHAR 

D1111111 of alwéér: 

11111111. 

Vergelijk dat met de ASCII -kode $16: 

09910119. 

De beginwaarde ($FF) van CHAR is zodanig dat er niet toevallig al een 
sync wordt vastgesteld terwijl er nog geen 8 bits achter elkaar zijn inge- 
lezen. Dat komt omdat het bit b® van $16 nul is en het bit b® van de 
beginwaarde van FF één. 

Zodra er eindelijk dan een sync is ingelezen krijgt de geheugenplaats SY 
een inhoud $9A toegekend en is de software van RDTAPE bij het tabel 
TENSYN van figuur 6a terechtgekomen. Het is de bedoeling dat er tien 
syncs achter elkaar, en niet onderbroken door een ander karakter, van de 
band worden gelezen. Zodra dit het geval is betekent dat voor RDTAPE 
het ondubbelzinnige begin van een datazending. Indien de BNE na de 
instruktie CMP # 16 op springen staat volgt de sprong terug naar het label 
SYNC, voor de herhaling van de sync-procedure. Dit is de herkansing, 
waarvan sprake is indien er tussentijds een ander karakter dan een sync 
wordt vastgesteld. 

Binnen de programmalus rond het label TENSYN wordt de sprong naar 
RDCH gevolgd door de sprong naar CHARVU: er gaat iets gebeuren met 
het display. Tenzij er tussentijds een van een sync afwijkend karakter is 
ingelezen, tijdens de voorafgaande RDCH, staat er $16 in de accu. Indien 
men de bits b@...b6 van de accu-inhoud inverteert (zie de bespreking 
van CHARVU, in punt 15) wordt de inhoud van PAD tijdens CHARVU 
$69. Figuur 15 leert ons dat dan het sync-plaatje @ van figuur 7 (hoofd- 
stuk 11, boek 3, pagina 96) is te zien. En wel op het display Di5 èn het 
display Di6. Dat komt omdat elke doorloop van CHARVU gepaard gaat 
met het verwisselen van funkties: de ene gaat aan, de andere gaat uit. 
En verder zij vastgesteld dat gedurende het de revue passeren van de syncs 
zeer regelmatig de subroutine CHARVU wordt aangeroepen; hetzij via de 
programmalus rond TENSYN, ‚hetzij via de aansluitende programmatus 
rond het label STAR (zie boyenaan figuur 6b). Omdat Dis en Di6 elkaar 
dus snel afwisselen in hun “oplichtend’’ werk ís er sprake van de gewenste 
'‘display-multiplexing’’: elk display moet op zijn beurt wachten, maar 
schijnbaar zijn ze beide tegelijk aan de beurt. 


1. Nadat er tien ononderbroken synes zijn vastgesteld, dus totaal elf 

syncs (eentje vóórdat het label TENSYN is bereikt), zijn we toe aan 
het label STAR, bovenaan in figuur 6b. De programmalus rond dit label 
wordt pas onderbroken als alle resterende syncs (maximaal 255 min 11 = 
244 stuks) de revue zijn gepasseerd. Er zijn twee mogelijkheden voor het 
onderbreken van de lus. De eerste mogelijkheid is dat het data-beginkarak- 
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ter "*’' wordt ingelezen. Het programma gaat dan verder vanaf het label 
STARA. De tweede mogelijkheid is dat er een karakter is ingelezen dat 
geen sync voorstelt en ook geen "’*’. Er is dan kennelijk iets fout gegaan 
en we beginnen dan helemaal opnieuw: terug naar het label RDTAPE. 

Het label STARA van figuur 6b wordt dus bereikt zodra het data-begin- 
karakter "*” is ingelezen. De ASCIl-kode van dit karakter is $2A. Indien 
men de bits b®...b6 inverteert en de aldus gewijzigde accu-inhoud toe- 
kent aan PAD (zie CHARVU, punt 15), krijgen we te maken met een 
segmentpatroon $55. Figuur 15 leert ons dat dan, tijdens de CHARVU 
direkt na het label STARA, plaatsje ® van figuur 7 (hoodstuk 11, boek 3, 
pagina 96) is te zien. Het “hebbes-plaatje’’ dus. 

Of dat plaatje echter gedurende langere tijd is te zien of niet hangt af van 
de nu volgende fase van RDTAPE, die zich bezighoudt met het inlezen van 
het programmanummer 1D. Na afloop van de subroutine RDBYT is het bij 
de datazending horende programmanummer ingelezen. Dit nummer staat 
in de accu en wordt vergeleken met de inhoud van de geheugenplaats |D. 
Met andere woorden: er wordt gekeken of het gevonden ID overeenkomt 
met de, vooraf door de gebruiker opgegeven, gewenste ID. Is dat het geval, 
dan gaat het programma direkt verder met de instrukties vanaf het label 
RDSA. Is dat echter niet het geval, dan wordt er eerst gekeken of er soms 
sprake is van het speciale, door de gebruiker opgegeven ID @@ of FF. Dat 
nakijken gebeurt via de instrukties vanaf het label CHKID. 

Indien blijkt dat er geen ID @ en ook geen ID FF is opgegeven volgt de 
sprong terug, via het tussenlabel SYNVEC, naar het begin van RDTAPE, 
Kennelijk is RDTAPE bezig met een datazending die we helemaal niet 
willen hebben en moeten we wachten totdat de gewenste datazending door 
RDTAPE in behandeling wordt genomen. En dat heeft RDTAPE niet zelf 
in de hand, want dat hangt af van wat de cassette-band te bieden heeft. 
Het is overigens deze situatie die aanleiding geeft tot een zeer kortstondige 
melding (äls men het al in de gaten heeft) van het “hebbes-plaatje’’ © 
(CHARVU, direkt na het label STARA). Dit plaatje is te zien gedurende 
een tijd, die begint met de JSR-CHARVU (label STARA) en eindigt 
met de JSR-BTWEEN, na de terugkeer naar het begin van RDTAPE (zie 
figuur 6a). | 


Nu eerst een intermezzo. De subroutine CHKSUM van figuur 16 zorgt 
ervoor dat bij het 16-bits getal CHK=(CHKH,CHKL) een bedrag wordt 
opgeteld dat gelijk is aan de inhoud van de accu (een acht bits getal) vlak 
vóór JSR-CHEKSUM. Die accu-inhoud blijft behouden (PHA respektieve- 
lijk PLA in figuur 16). 
Nadat we het geval van een niet gevraagde ID behandeld hebben blijven er 
drie mogelijkheden over: 
1. Gevonden ID @1... FE. De instrukties vanaf het label RDSA tot aan 
het label FILMEM worden direkt uitgevoerd. Dat wil zeggen dat het 
rechter startadresbyte SAL wordt ingelezen (RDBYT) en wordt verwerkt 
in het getal CHK. Vervolgens van hetzelfde laken een pak voor het tinker 
startadresbyte SAH. De adreswijzer POINT wordt gericht op het startadres 
SA van het bij de datazending horende datablok. 
2. Opgegeven ID B. Er wordt alsnog naar het label RDSA gesprongen. 
Zie 1. Dit klopt, want bij een ID G@ wordt weliswaar het van de band 
gelezen ID genegeerd, maar niet het van de band gelezen startadres SA. 
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ADC CHKL 


STA CHKL CHKL := CHKL + A 
LDA CHKH 

ADCIM Sg CHKH : = CHKH + C 
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Figuur 16. De subroutine CHKSUM zorgt voor het optellen bij het 16 bits getal, 
gevormd door de inhoud van de geheugenplaatsen CHKH en CHKL, van een 8 bits 
getal, dat een zojuist ingelezen databyte voorstelt. 


3. Opgegeven ID FF. Het van de band gelezen startadres (achtereenvolgens 

SAL en SAH) wordt in het getal CHK verwerkt (twee keer de sub- 
routine CHECKSUM). Vervolgens wordt de adreswijzer POINT gericht op 
een door de gebruiker opgegeven startadres (inhoud geheugenplaatsen SAL 
en SAH). Dit klopt, want bij een ID FF worden zowel het ID van de band 
als de SA van de band genegeerd. Dat desondanks SAL en SAH van de 
band worden gelezen en verwerkt in het getal CHK, is noodzakelijk omdat 
anders vrijwel zeker het eindbedrag van CHK niet klopt, en dat zou aan- 
leiding geven tot foutieve konklusies. Na het specificeren van POINT 
springen we naar het label FILMEM. 


19 De instrukties vanaf het label FILMEM van figuur 6b houden zich 
bezig met het inlezen van de band van het bij de datazending 
horende datablok, en met het inschrijven van dit datablok in het geheugen 
van de junior-computer. Het begint met de aanroep van de subroutine 
RDBYT. Zie punt 14 en de figuren 11 en 12. Blijkt het na afloop van 
RDBYT om ongeldige data te gaan (N=1), dan gaan we ‘terug naar AF": 
RDTAPE. Blijkt het na afloop van RDBYT om een data-eindkarakter "'/'' 
te gaan, dan gaat RDTAPE verder met het label CHECK. In alle andere 
gevallen kan het uitsluitend gaan om geldige data, die wordt verwerkt ín 
het getal CHK (JSR-CHECKSUM). Nadat dit is gebeurd wordt de zojuist 
ingelezen data ingeschreven in een geheugenplaats, die wordt aangewezen 
door de adreswijzer POINT. De beginwaarde van POINT is zodanig dat de 
eerste geheugenplaats die wordt beschreven een adres SA heeft. 

Na het inschrijven wordt POINT met eén verhoogd en zijn we toe aan het 
label FMA van figuur 6b. Er wordt een beroep gedaan op de subroutine 
VU van punt 15 en figuur 13. Dit heeft tot gevolg dat het display Di5/Di6 
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wordt afgelost door het display Di6/Di5. Op poort PAD staat overigens 
nog steeds het segmentpatroon, zoals dat is vastgesteld tijdens de JSR- 
CHARVU direkt na het label STARA. Dus het “‘hebbes-plaatje’’ ® is nog 
steeds zichtbaar, en wel op zowel Di5 als Di6, omdat telkens na de behan- 
deling van één databyte (programmalus rond het label FILMEM) het 
aflossen van de displays plaatsvindt: het al eerder besproken principe van 
de display-multiplexing (''display-ploegendienst’”). De afsluitende instruk- 
tie JMP-FILMEM zorgt ervoor dat opnieuw een databyte in behandeling 
kan worden genomen. 

En dan de laatste instrukties van RDTAPE. Dus de instrukties vanaf het 
label CHECK in figuur 6b. Zodra er een data-eindkarakter "'/"' is vastge- 
steld wordt de rechter helft CHKL van het op de band “genoteerde’’ getal 
CHK (eindwaarde) ingelezen. In de accu dus. Dit wordt vergeleken met de 
eindwaarde CHKL, tot stand gekomen tijdens het lezen van de band: de 
inhoud van de geheugenplaats CHKL. Indien de beide eindwaarden niet 
overeenstemmen weten we meteen hoe laat het is: via het tussenlabel 
SYNVEC helemaal terug naar het begin: RDTAPE. Stemmen de beide 
eindwaarden echter wel overeen, dan is het zinvol om na te gaan of dat- 
zelfde het geval is voor de beide eindwaarden CHKH, dus de linker helften 
van de beide CHK's. Zijn ook deze eindwaarden aan elkaar gelijk, dan is 
RDTAPE afgerond: RTS. Is dat echter niet het geval, dan gaan we alsnog 
via SYNVEC terug naar het begin. 

We zien dat in het geval van niet overeenstemmende kontrole-bytes CHKL 
of CHKH het bij de datazending horende databiok wel in het geheugen 
van de junior-computer wordt gezet, maar dat de subroutine RDTAPE niet 
wordt verlaten. Dit is ook ècht te zien. Want het "hebbes-plaatje’’ ® wordt 
gevolgd door het "zoekplaatje’’ D (zie figuur 7 van hoofdstuk 11). En 
normaal gesproken is het display gedoofd als RDTAPE wordt verlaten na 
een aanroep van RDTAPE vanuit PM. Dat het zover is zien we bij PM aan 
de terugmelding ”READY'’, en verder aan het gedoofde display. In het 
geval dat RDTAPE wordt aangeroepen vanuit TM kunnen we evenééns 
zien dat we klaar zijn met het inlezen van een datazending. Er volgt dan de 
terugmelding ''id XX’ (zie verderop in dit hoofdstuk). 


J Het stroomdiagram van de hoofdroutine van het systeemprogram- 

ma TM vindt u in de figuren 17a, 17b en 17c, De struktuur van 
het hoofdprogramma wijkt niet af van die van de andere systeemprogram- 
ma's van de junior-computer. Er is dus sprake van een voorroutine, te 
weten de instrukties vanaf het label TPINIT tot aan het label TPI, gevolgd 
door de instrukties vanaf het label TPI tot aan het label TPTXT. Dat 
laatste label is tevens het centrale label van de hoofdroutine van TM. Naar 
dit label wordt teruggesprongen na afloop van de PAR-toetsroutine (zie 
punt 24) en nadat door de gebruiker opgegeven data is geladen in één van 
de negen geheugenplaatsen ID, SAH, SAL, EAH, EAL, BEGADH, 
BEGADL, ENDADH en ENDADL. Na afloop van de GET-toetsroutine 
(punt 22) en van de SAVE-toetsroutine (punt 23) komen we pas in TPTXT 
terecht nadat het tweede deel van de TM-voorroutine, vanaf het label TPI, 
is doorlopen. Na afloop van de SEF-toetsroutine (punt 25) en van de 
EDIT-toetsroutine (punt 25) is TM verlaten; we zitten dan in de editor, 
die is ondergebracht in de standaard-EP ROM van de junior-computer. 
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Figuur 17a. Het eerste gedeelte van de hoofdroutine van het systeemprogramma TM. 
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Figuur 17b. Het tweede gedeelte van de hoofdroutine van TM. 
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Figuur 17c. Het derde gedeelte van de hoofdroutine van TM. 
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Direkt na het centrale label TPTXT wordt de relevante geheugenplaats 
met naam en inhoud op het display getoond; vervolgens is het een kwestie 
van wachten op een ingedrukte toets. Afhankelijk van welke toets is inge- 
drukt wordt er een toetsroutine of de datatoetsroutine afgewerkt. En dan 
kan het spelletje opnieuw worden gespeeld. 

Een snelle blik op de software van TM leert dat op veel plaatsen de geheu- 
genplaats DISCNT voorkomt. De inhoud van deze geheugenplaats doet 
dienst als parameterteller. De stand van de parameterteller bepaalt op 
welke van de negen geheugenplaatsen er data moet worden geladen, àls er 
data wordt opgegeven door de gebruiker. Verder bepaalt die parameter- 
teller welke van de negen geheugenplaatsen op het display zichtbaar moet 
worden gemaakt, met naam en inhoud. Voor DISCNT gelden de volgende 
mogelijkheden: 

DISCNT = 08 — weergave/opgave ID 

DISCNT = @1 > weergave/opgave SAH 

DISCNT = 92 — weergave/opgave SAL 

DISCNT = 93 > weergave/opgave EAH 

DISCNT = @4 > weergave/opgave EAL 

DISCNT = 95 > weergave/opgave BEGADH 

DISCNT = 96 > weergave/opgave BEGADL 

DISCNT = 07 — weergave/opgave ENDADH 

DISCNT = 98 — weergave/opgave ENDADL 

Tot zover het globale overzicht van TM. Nu de details. 


) De voorroutine van TM bestaat uit de instrukties in figuur 17a 
vanaf het label TPINIT. De vier geheugenplaatsen, die direkt iets 
hebben te maken met het cassette-gebeuren, namelijk ID, SAH, SAL, EAH 
en EAL, krijgen een inhoud nul toegewezen. Na het label TPI krijgt de 
parameterteller DISCNT een inhoud nul. Immers: het label TPI kan vanuit 
drie richtingen worden bereikt. In alle drie gevallen is X gelijk aan nul. Met 
andere woorden: na elke doorloop door TPI wordt de geheugenplaats ID 
met naam en inhoud weergegeven op het display. 
En dan gaan we poort B dresseren. Een inhoud $96 voor PBD betekent dat 
de displayschakelaar (PB1 .…… PB4 zijn tot uitgang verklaard) in de neutrale 
stand staat. Het display is ''uit’' en er worden ook geen ingedrukte toetsen 
ontdekt. Een korte pauze dus. Voor deze kwestie verwijzen we u naar 
hoofdstuk 7 (boek 2), evenals voor de diepere achtergrond van de instruk- 
ties van figuur 17a vanaf het centrale label TPTXT tot aan het label GET. 
De subroutine TAPDIS lijkt sterk op de bekende SCANDS-subroutine. Zie 
hiervoor punt 27 en figuur 19. Het eind van het liedje, bij het label GET, is 
in ieder geval dat een ingedrukte toets met de bijpassende toetswaarde 
(JSR-GETKEY) in de accu staat. Afhankelijk daarvan kan er een toets- 
routine of de datatoetsroutine worden uitgevoerd. 


IJ De GET-toetsroutine bestaat uit de instrukties, linksonder in 
figuur 17a, vanaf het label GET. Zodra blijkt dat de GET -toets is 
ingedrukt volgt de sprong naar de subroutine RDTAPE. Zie hiervoor de 
punten 10 t/m 19 van dit hoofdstuk. Alles wat van de cassette-band 
binnenkomt wordt gelezen en zodra de door de gebruiker gewenste data- 
zending aan bod is wordt het bijbehorende datablok in het geheugen van 
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de junior-computer gezet. Vooraf is door de gebruiker een ID opgegeven 
en, in het geval van een ID FF, tevens een SAH en een SAL. 

Na de JSR-RDTAPE wordt er gekeken of de zojuist binnengehaalde 
zending is binnengehaald via de ID=FF-truuk. Indien dat niet het geval is 
(label GETB) krijgt X de waarde nul en gaan we via TPI terug naar TPTXT. 
We krijgen "id XX’ te zien. De omweg via TPI is nodig om dat de I/O weer 
in overeenstemming moet worden gebracht met de TM-situatie. De voor de 
'!super-subroutines’” DUMP/DUMPT en RDTAPE van toepassing zijnde 
I/O wijkt namelijk af van de voor TM geldende 1/0. 

Indien er sprake was en is van een ID FF wordt het label GETB bereikt via 
een omweg: de instrukties vanaf het label GETA. Daar komen we allereerst 
de subroutine ADJPNT van figuur 18 tegen. Dat is een simpel geval: de 
adreswijzer POINT wordt met één opgehoogd. Wäár is dat goed voor? 

De adreswijzer POINT staat tijdens RDTAPE gericht op de geheugenplaats 
die wordt geladen met het meest recente, van de band gelezen databyte. 
Nadat dit is gebeurd wordt die adreswijzer met één verhoogd. Zie punt 19 
en figuur 6b. Zodra het komplete datablok is ingelezen staat POINT 
gericht op een adres dat één hoger is dan het adres van het laatste byte van 
het datablok. Met andere woorden: POINT = EA = LA +1. Het eindadres 
is niet direkt gespecificeerd op de band, maar volgt indirekt uit SA (hetzij 
van de band, hetzij, bij ID = FF, via de gebruiker) plus het aantal bytes van 
het datablok plus één. 

Welnu: na JSR-ADJPNT staat POINT gericht op het laatste adres LA van 
het zojuist ingelezen datablok. Waarom is dat gedaan? Er is, nà de vier op 
JSR-ADJPNT volgende instrukties, een nieuwe SA gespecificeerd. Die 
nieuwe SA vindt toepassing in het geval dat een aantal datablokken, be- 
horend tot (stukken) programma's in ongeassembleerde vorm, aan elkaar 
moet worden geplakt, waarbij uiteraard de tussenliggende EOF's (data 77) 


X 18 En 


ADJPNT 


LDAZ POINTL 

SBCIM S$O1 

STAZ POINTL JPOINTL: =POINTL -1 
LDAZ POINTH 






SBCIM 599 
STAZ POINTH | POINTH:=POINTH-C 


81915 18 


Figuur 18. De subroutine ADJPNT zorgt ervoor dat de adreswijzer POINT met één 
wordt verlaagd en wordt in sommige gevallen aangeroepen tijdens de uitvoering van 
de GET-toetsroutine van TM. | | 


168 


moeten worden verwijderd. In hoofdstuk 11 (boek 3) is uitgebreid inge- 
gaan op deze ID=FF-truuk. Zie met name figuur 11 van dat hoofdstuk. Uit 
de software van de GET-toetsroutine kunnen we opmaken dat het niet 
nodig is om, vóór het inlezen van het volgende datablok, iets op te geven. 
Immers: niet alleen de SA is automatisch op de juiste waarde gezet, ook de 
inhoud van de geheugenplaats ID is nog steeds FF. We hoeven dus voor het 
inlezen van een nieuw datablok (let wel: een “bij te plakken” datablok van 
een (stuk) ongeassembleerd programma!) uitsluitend opnieuw de toets 
GET in te drukken èn ervoor te zorgen dat de eerste de beste komplete, 
door de band geleverde datazending ook daadwerkelijk het gewenste, “bij 
te plakken’ datablok bevat!! Want bij een ID FF wordt de eerste de beste 
komplete datazending geaccepteerd door de junior-computer. Maar dat 
wist u al van boek 3. 


) De SAVE-toetsroutine bestaat uit de vijf instrukties vanaf het 
label — hoe toepasselijk! — SAVE in figuur 17a. Zodra blijkt dat 
de SAVE-toets is ingedrukt volgt de aanroep van de subroutine DUMP. Zie 
hiervoor de punten 1 t/m 9 van dit hoofdstuk. Een vooraf gespecificeerde 
datazending wordt op de cassette-band gezet. Die hopelijk draait, waarbij 
de cassette-recorder in de opnamestand staat. Vooraf moeten de geheugen- 
plaatsen ID, SAH, SAL, EAH en EAL met data zijn geladen die in overeen- 
stemming is met de specifikatie. 
Na afloop van de subroutine DUMP krijgt X de waarde nul toegekend. Dat 
betekent dat er na afloop, als het centrale label TPTXT via de TPI-omweg 
is bereikt, “id XX’ op het display is te zien, waarbij XX gelijk is aan de 
door de gebruiker opgegeven ID. Net als bij de GET-toetsroutine (punt 22) 
is de TPl-omweg nodig om terug te schakelen van de DUMP-l/O op de 
TM-1/0. | 


J De PAR-toetsroutine bestaat uit de instrukties vanaf het label 
PLUS in figuur 17b. Indien de PAR-toets blijkt te zijn ingedrukt 
wordt de inhoud van de parameterteller DISCNT met één verhoogd. Geeft 
dit aanleiding tot een inhoud $09, dan krijgt DISCNT alsnog de waarde nul 
toegekend. Het indrukken van de PAR-toets heeft dus tot gevolg dat de 
volgende van de negen TM-geheugenplaatsen aan de beurt is om met naam 
en inhoud zichtbaar te worden gemaakt op het display. Voor de volgorde: 
zie punt 20. Na “ENDLXX” en het indrukken van toets PAR volgt du 
“id XX". | 


J De SEF-toetsroutine bestaat uit de instrukties vanaf het label 
FILES, tinksboven in figuur 17b. Na het indrukken van de toets 
SEF wordt SA gelijk gemaakt aan BEGAD en het eindadres EA gelijk ge- 
maakt aan CEND, de variabele eindadreswijzer van het op de cassette-band 
te schrijven (JSR-DUMP), ongeassembleerde programma. Er wordt vanuit 
gegaan dat vóór het indrukken van toets SEF een ID is gespecificeerd. 
Na afloop van het “’DUMPen’’ wordt TM verlaten, richting editor (warme 
startingang). Maar voor het zover is volgt nog de subroutine BEGIN: de 
displaywijzer CURAD, op vele plaatsen in dit boek ook wel “'instruktie- 
wijzer’ genoemd, wordt gericht op het adres BEGAD, tevens het begin- 
adres SA. Verder wordt PBDD in overeenstemming gebracht met de 
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situatie zoals die is direkt na de RESET-voorroutine van de standaard- 
monitor. Zie hoofdstuk 7 (boek 2). Tevens wordt eerst nog de stapelwijzer 
(stack pointer) op zijn nummer ($FF) gezet. En pas dàn is het zover, die 
warme start. | 

De EDIT-toetsroutine (figuur 17b, label DAT) bestaat óok uit een sprong 
naar de editor, maar dan richting koude startingang. Meer valt er niet over 
te zeggen. Dat doen we dan ook maar niet. 


DJ Nu zijn alle niet-numerieke toetsen “uitgefilterd”. Blijven over de 
numerieke toetsen @...F. Dus de datatoetsroutine. Dat is de 
hele rest van de TM-hoofdroutine. Dus alles vanaf het label SHIFT in 
figuur 17b. Dus de gehele rechter “kolom!” van figuur 17b èn figuur 17c. 
De gang van zaken: Een ingedrukte numerieke toets wordt verwerkt tot 
het nieuwe rechter nibble van de databuffer INH. Het oude rechter nibble 
gaat voortaan dienst doen als het nieuwe linker nibble. De manier waarop 
dit tot stand komt is al op verscheidene plaatsen, elders in de junior- 
computer-boekenserie beschreven, vandaar dat we dat nu niet doen. 
De gewijzigde inhoud van de databuffer INH moet in één van de negen 
geheugenplaatsen worden gezet. Welke van de negen dat is, hangt af van 
de stand van de parameterteller. Dus hangt af van de inhoud van de geheu- 
genplaats DISCNT. De data wordt geladen in geheugenplaats: 


ID (label SHIFT) indien DISCNT=09; 
SAH (label STSAH) indien DISCNT=01; 
SAL (label STSAL) indien DISCNT=g2; 


EAH (label STEAH) indien DISCNT=03; 

EAL (label STEAL) indien DISCNT=04; 

BEGADH (label STBEGH) indien DISCNT=95; 

BEGADL (label STBEGL) indien DISCNT=06; 

ENDADH (label STENDH) indien DISCNT=07; 

ENDADL (label STENDL) indien DISCNT =08. 

Nadat dit laden is gebeurd gaan we terug naar het centrale label TPTXT 
van TM, teneinde op het display de gevolgen te kunnen zien van het in- 
drukken van één of twee numerieke toetsen. 

Hiermee is de bespreking van de PM-hoofdroutine afgerond. Nu nog één 
subroutine en één ’'sub-subroutine’’. 


2 De subroutine TAPDIS van figuur 19 zorgt voor de weergave van 
één van de negen geheugenplaatsen ID... ENDADL op het dis- 

play. De displays Dil ... Di4 zorgen voor de weergave van de naam van de 

geheugenplaats, de displays Dib en Di6 laten de inhoud van die geheugen- 

plaats zien. We herhalen nu nog even in het kort een stukje hoofdstuk 7 en 

stellen vast dat, afhankelijk van X, het volgende display aan de beurt is om 

met nul, 1, 2, 3, 4, 5, 6 of alle segmenten op te lichten: 

X=08 — display Dil 

X=DA — display Di2 

X=BC — display Di3 

X=DE — display Di4 

X=1} — display Dib 

X=12 — display Di6 | 

Direkt na het label TAPDIS van figuur 19 worden de poortlijnen 
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PAD... PA6 tot uitgang verklaard. Op deze poortlijnen komt immers het 
weer te geven segmentpatroon (zie figuur 15!) te staan. Direkt na het label 
SID van figuur 19 krijgt X de waarde $98. Dus het display Dil staat gereed 
om (tijdens de subroutine TDISP, die spoedig volgt) op te lichten. Maar 
voordat TDISP wordt aangeroepen moet eerst bekend zijn welke geheugen- 
plaats zichtbaar moet worden gemaakt. En dat hangt af van de inhoud van 
de geheugenplaats DISCNT. Dus volgt er een soort “software-enquête”’, die 
het grootste deel van figuur 19 beslaat. Het Y-register speelt daarbij de rol 
van “enquêteur'’, en krijgt, nadat bekend is om welke van de negen geheu- 
genplaatsen het gaat, meteen ander werk. Hij doet dan dienst als index 
voor een tijdens de subroutine TDISP gebruikte opzoektabel. 

Zodra het label COMPNT van figuur 19 is bereikt, dus zodra de subroutine 
TDISP wordt aangeroepen, is er sprake van de volgende toestand: 


DISCNT=00;: INH < inhoud ID; index Y=00; 
DISCNT=81; INH «inhoud SAH; index Y=04; 
DISCNT=02; INH & inhoud SAL; index Y=08; 
DISCNT=03: INH & inhoud EAH; index Y=@C; 
DISCNT=@4; INH < inhoud EAL; index Y=10; 


DISCNT=05; INH < inhoud BEGADH; index Y=14; 
DISCNT=96; INH < inhoud BEGADL; index Y=18; 
DISCNT=07; INH < inhoud ENDADH; index Y=1C; 
DISCNT=@8; INH & inhoud ENDADL; index Y=20. 


IJ De subroutine TDISP van figuur 20 zorgt voor de weergave op het 
display van de naam (Dil... Di4) en de inhoud (Di5 & Di6) van 
de door DISCNT vastgelegde geheugenplaats. Verder stelt hij vast of er een 
nieuwe toets Is ingedrukt of niet. 

Eén doorloop van de programmalus rond het label TDISP is te vergelijken 
met de subroutine CONVD van de standaard-monitor. Zie figuur 14 van 
hoofdstuk 7. Boek 2 dus. Eerst wordt de accu geladen met data, afkom- 
stig uit de opzoektabel TLOOK. Welke data, hangt af van de patroon- 
index Y vlak voor de aanroep van TDISP. Zie hiervoor punt 27. Deze data 
doet dienst als segmentpatroon en wordt dus in PBD gezet. Welk segment- 
patroon wat zichtbaar maakt volgt uit een onderzoek van de opzoektabel 
TLOOK (zie het betreffende deel van de PM/TM-listing, dus Aanhangsel 3, 
achter in dit boek) en uit figuur 15, het overzicht van alle 128 mogelijke 
verschillende segmentpatronen. 

Na het bewaren van de patroonindex Y in de accu (TYA) wordt Y ge- 
bruikt voor een wachtlus. Gedurende de wachttijd licht Dil, Di2, Di3 of 
Di4 op. Na afloop gaat de patroonindex weer naar Y (TAY), die met één 
wordt verhoogd (INY), voor het ophalen van het volgende weer te geven 
segmentpatroon. Inmiddels is ook X voorbereid voor het aktiveren van het 
volgende display, één nummertje hoger. Tenminste: zolang Dis niet aan 
bod is (CPX #10). Want dan besluiten we de doorloop van TDISP met de 
gang naar weer een andere subroutine, te weten LDAINH. 

Wat is dàt nou weer voor een subroutine, die LDAINH? Nooit van ge- 
hoord! Klopt. Neem boek 2 voor u. Zoek pagina 184 op. Bekijk het adres 
$1DA7 van de listing. We blijken midden in de subroutine SCAND/ 
SCANDS te zitten. Gaat u nu een lichtje op? Bekijk figuur 21 (dat is tevens 
figuur 11 van hoofdstuk 7) en u ziet dat JSR-LDAINH inhoudt dat we bij 
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Figuur 20. De subroutine TDISP zorgt voor het om de beurt een tijdje oplichten van 
de zes displays. In aansluiting daarop wordt er gekeken of er een nieuwe toets ís 
ingedrukt. 


SCAND/SCANDS instappen op het moment dat begonnen wordt aan. de 
weergave op het display van de databuffer INH. Dus de weergave op de 
displays Di5 en Di6. En in die fase waren we nou juist aangeland tijdens 
TDISP: de weergave van de inhoud van één van de negen geheugenplaatsen 
ID... ENDADL op de displays Dib en Di6. | | 
Nadat LDAINH, alias SCAND/SCANDS is afgewerkt is aan de inhoud van 
de accu te zien of er een nieuwe toets is ingedrukt of niet: het laatste 
gedeelte (zie figuur 21) vanaf het label AK. | 
Hiermee is de bespreking van het systeemprogramma, en daarmee bijna 
dit hoofdstuk, afgerond. - 
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Figuur 21. De tijdens TDISP (figuur 20) aangeroepen subroutine LDAINH bestaat uit 
het laatste gedeelte van de standaard-monitor-subroutine SCAND/SCANDS, vanaf 
het oplichten van display Dis. 


JO In hoofdstuk 11 (boek 3) zijn twee metoden besproken voor de 
afregeling van de PLL. In beide gevallen is een testprogrammaatje 
nodig. Bij de PLL-afregelmetode via het display is zowel een schrijf- als een 
leesprogrammaatje nodig, bij de PLL-afregelmetode via de oscilloskoop 
hoeft er vooraf uitsluitend wat op de band te worden geschreven. Voor de 
details verwijzen we naar hoofdstuk 11 (boek 3), de pagina’s 110... 118. 

Bij de PL L-afregeling via het display is het de bedoeling dat er eerst ge- 
durende een zekere tijd achter elkaar en ononderbroken syncs naar de 
band worden gestuurd. Dat gebeurt met het programma DUMCHK van 
figuur 22, waarvan u de hex dump al bent tegengekomen in hoofdstuk 11, 


174 


* 2e 


LDA #7D 


sd 
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wachttijd 3600 Hz 
LDA # C3 
STA — LOWER wachttijd 2400 Hz 
LDA #03 
STA — FIRST gantal halve perioden 3600 Hz 


LDA #02 


STA — SECOND aantal halve perioden 2400 Hz 


fj |E 
U 
ij 


LDA #47 
LDX # FF 
STA — PBD 
STA — GANG 
STX — PBDD PBS... PB7 uitgang 
LDA #49 
LDX #7F 
zie DUMP STA — PAD PAD 04 
STX — PADD PAG... PAG uitgang; PA7 ingang 
LDA #DD 
STA — CTL CTL +DD 


STA — CTH CTH DD 


SYNOUT 


CLC 







LDA #41 

ADC — CTL 
STA — CTL CTL:=CTL +1 
LDA #90 

ADC — CTH 


STA — CTH CTH: = CTH +C 


C=1; ja 
EXIT 
dr Ce B; nee 
LDA #16 A “sync 
JMP-MONITOR $ 1C1D 
OUTCH 
JMP — SYNOUT 
81915 22 


Figuur 22. Het schrijf-hulpprogramma DUMCHK hoort bij de PLL-afregelmetode via 
het display. 
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Figuur 23. Het lees-hulpprogramma RDCHK moet worden doorlopen tijdens de 
eigenlijke afregeling van de PLL volgens de display-metode. 
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namelijk de eerste helft van tabel 2, op pagina 110. Het startadres is $0200. 
De eerste instrukties van figuur 22 zijn identiek aan de eerste instrukties 
van DUMP/DUMPT. Pas twee instrukties vóór het label SYNOUT gebeurt 
er iets dat we nog niet wisten: de geheugenplaatsen CTH en CTL krijgen 
beide een inhoud $DD toegekend. Het 16-bits getal, gevormd door de 
inhoud van CTH (linker byte) en CTL (rechter byte) wordt telkens ge- 
durende een omloop rond het label SYNOUT met één verhoogd. Zolang 
het resultaat van de optelling een carry nul oplevert wordt de optelling 
gevolgd door het schrijven op de band van een sync (LDA #16 plus 
JSR-OUTCH) en een nieuwe optelling (JMP-SYNOUT). Levert de optelling 
een carry één op, dan volgt de sprong naar het label EXIT: er wordt terug- 
gesprongen naar de standaard-monitor. We zien dan het startadres ($0200) 
op het display verschijnen. 

Wanneer wordt de carry eigenlijk één? Dat gebeurt zodra de inhoud van de 
geheugenplaats CTH nul is geworden, dus zodra CTL vanuit de stand FF 
met één wordt verhoogd èn zodra daardoor CTH vanuit de stand FF met 
één wordt verhoogd, resulterend in een CTH en een CTL nul en een carry 
één. Dus vlak voor de eerste doorgang van SYNOUT is (CTH, CTL) gelijk 
aan $DDDD en na afloop is er sprake van het 17 bits getal $10000, ofte- 
wel decimaal 65.536. Nu is $DDDD gelijk aan het decimale getal 
4096x13+256x13+16x13+13=56.79/. Met andere woorden: De gang 
door het label SYNOUT vindt 65.536—56.797=8739 keer plaats. Er wor- 
den dus 8738 syncs op de band geschreven. Elke sync duurt 8 bits en elk 
bit duurt 1250 us. Hoe we daar aan komen heeft u kunnen lezen in punt 3. 
Er worden dus gedurende 1250x8x8738 us = ruim 87 sekonden oftewel 
ongeveer anderhalve minuut syncs op de band gezet. 

Het bijbehorende leesprogramma heet RDCHK en staat in figuur 23. De 
hex dump vinden we in de tweede helft van tabel 2 (hoofdstuk 11). Het 
gedeelte van figuur 23 vanaf het label RDCHK (startadres $0251) tot 
aan het label SYB is vrijwel gelijk aan het eerste gedeelte van RDTAPE 
(figuur 6a), vanaf het label RDTAPE tot aan het label TENSYN. Maar nu 
dan de instrukties van figuur 23 vanaf het label SYB. Er wordt een karak- 
ter ingelezen (JSR-RDCH); de ASClIl-kode staat in de accu. Vervolgens 
gaan we na of dat karakter een sync is. Zoja: terug naar het label SYB. 
Zo nee: begin opnieuw, bij het label SYNCHK. 

De programma’s van de figuren 22 en 23 horen bij de PLL-afregelmetode 
via het display. De vraag rijst wat er wanneer is te zien. Twee instrukties 
van figuur 23 zijn daarop van invloed. Direkt na afloop van JSR-B TWEEN 
is het "zoekplaatje’' (de drie horizontale segmenten lichten op) te zien. 
En direkt na afloop van JSR-CHARVU doet de op bit b7 na geïnverteerde 
accu-inhoud dienst als segmentpatroon. Dus de op bit b7 na geïnverteerde 
ASCIl-kode van het zojuist van de band ingelezen ASCI-karakter. Worden 
er dus syncs vastgesteld èn is de PLL goed afgeregeld, dan wordt de pro- 
grammalus rond het label SYB doorlopen. Zolang dât het geval is toont 
het display het sync-plaatje. Er kunnen echter nog meer situaties op- 
treden. We lezen een stuk cassette-band waarop (nog) geen syncs (meer) 
staan. Of we lezen wèl syncs van de band, maar niet in de accu, omdat de 
PLL niet goed is afgeregeld. In de beide laatste gevallen wordt er, na 
JSR-CHARVU, een willekeurige, dat wil zeggen foute accu-inhoud gebruikt 
als segmentpatroon. Dat duurt echter maar kort en is niet op het display 
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Figuur 24. Het schrijf-hulpprogramma SAVE, ten behoeve van de PLL-afregelmetode 
via de oscilloskoop. 


zichtbaar, omdat een handvol mikrosekonden later, na de sprong terug 
naar het label SYNCHK, de subroutine BTWEEN wordt aangeroepen. En 
dat heeft het displayen van het ‘'zoekplaatje’’ tot gevolg. Overigens: de 
zojuist geschetste situatie treedt op in het geval dat er ooit minstens één 
sync is vastgesteld en dat er later iets anders werd ingelezen. Immers: 
zolang er niet minstens één sync is vastgesteld wordt de wachtlus rond het 
label SYA van figuur 23 niet doorbroken. Precies dezelfde wachtlus komt 
óók voor in RDTAPE. 

Vandaar dat er altijd sprake is van òf het '‘zoekplaatje’’, of het syncplaatje. 
En nóóit van iets anders. 
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30 De software van het programma SAVE van figuur 24 hoort bij de 
hulpsoftware die nodig is om de PLL af te regelen volgens de 
oscilloskoop-metode. De hex dump van deze software bent u in hoofd- 
stuk 11 (boek 3) al tegengekomen; het is tabel 3 op pagina 112. 

Het programma SAVE moet ervoor zorgen dat er afwisselend enen en 
nullen naar de band gaan. Het zal u dan ook niet verbazen dat a) de 
instrukties van figuur 24 vanaf het label SAVE tot aan het label INFNIT 
dezelfde zijn als de eerste instrukties van DUMP/DUMPT, en b) er sprake is 
van een oneindig lange programmalus rond het label INFNIT, met als ge- 
volg dat er een ‘'ja/nee-bittrein’’” wordt afgeleverd; een kwestie van de 
juiste volgorde van en hoeveelheden HIGH en LOW kiezen. Verder valt 
er eigenlijk niets over die figuur 24 te vertellen. Of het moet zijn dat 
“oneindig tang durende’ programmalussen natuurlijk maar een betrek- 
kelijke zaak is: na een paar minuten op de band schrijven drukt men 
gewoon de RST-toets in. Met als gevolg dat het schrijven ophoudt. Wat nu 
overigens óók van toepassing is voor dit hoofdstuk 16. Want alles wat 
bespreekbaar is, is besproken. 
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Aanhangsel 1 


De listing van het systeemprogramma PME 


De nu volgende pagina’s vormen een kombinatie van machinetaal en 
Engels, die bekend staat als de listing. 

Op pagina 189/190 vindt men de instrukties van de routine BINAR en 
PMBINA, die nodig zijn om (tijdelijk) op binair rekenen terlg te schakelen. 
Voor details: zie Aanhangsel 4 in dit boek. _ 


Enige belangrijke adressen: 
EDITC $1590 
BRK $1533 
EDITW $153D 
SEMIW $1667 
SEACND $17C5 
BINAR $17F6 
PMBINA $17FA 
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0001: 
0002: 
0003: 
QOOU: 
0005: 
0006: 
0007: 
0008: 
0009: 
0010: 
0011: 
0012: 
0013: 
OO 18: 
0015: 
0016: 
0017: 
0018: 
0019: 
0020: 
0021: 
0022: 
0023: 
ooek: 
0025: 
0026: 
0027: 
0028: 
0029: 
0030: 
0031: 
0032: 
0033: 
0034: 
0035: 
0036: 
0037: 
0038: 
0039: 
OoU0: 
OOH 1: 
oou2: 
0043: 
oo: 
OOu5 : 
OOk6: 
OOU7: 
0048: 
OOug: 
0050: 
0051: 
0052: 
0053: 
0054: 
0055: 
0056: 
09572 
0058: 
0059: 
0060: 
0061: 
0062: 
0063: 
006%: 
0065: 
0066: 
0067: 
0068: 


14D8 


14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 


14D8 


14D8 
14D8 


1UD8 
14D8 
1uD8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 


14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 


ES 


et „k / ° 
be 
org SHE SS 
SOURCE LISTING OF THE PM EDITOR 


WRITTEN BY G. NACHBAR 


DATE : 25 JUNE 1981 


THE PM EDITOR USES HEXADECIMAL LABELS 


NERKNNNHRNRKHNNNNER HNHK KHK AHHH KAK 


POINTERS AND TEMPS IN PAGE ZERO 
NNNUKURNNNKNKNK KNN KNN HE KHAN HH 


BEGADL * $00E2 
BEGADH # $00E3 
ENDADL *% $OOEK 
ENDADH *% $00E5 
CURADL % $00EG6 
CURADH % $OOET7 
CENDL % $00E8 
CENDH & $00E9 
TABLEL # $00EC 
TABLEK &% $OOED 
LABELS #% $OOEE 
BYTES &# $OOF6 
COUNT & $OOF7 
INH * $OOFg 
POINTL *% $OOFA 
POINTH & $OOFB 
TEMPX & $OOFD 
NIBBLE & $OOFE 


HUBHRNANKNNKK KKK KHK HHK HNHK HHN HKH 


PME'S POINTERS AND TEMPS IN PAGE 1A 


HHNNNNNHKNRKNANN HN HH HUH K UAH KH AHA KH 


PARAL & $ 1463 
PARAH % $1A6U 
PARBL # $1A65 
PARBH #% $1A66 
NMIL ed $1A7AÀ 
NMIH * $1A7B 
BRKTL & $1A7C 
BRKTH & $1AT7D 
PBDD * $1A83 


HRNNKNRUNENUNNKKNHNHN KKK KHM AHHH KH KH 


ADDRESSES IN THE STANDARD EPROM 
HNNNKENNKENKNKEN NKK KN HENK KEEK U 


SAVE : $1C00 
BEGIN # $1ED3 
OPLEN % $ 1E5C 
LENACC #% $1E60 
_ADCEND % $ 1EDC 
RECEND E dr 
UP $1E83 
NEXT *  drErd 
1 
ASSEMB % $1F51 


181 


0069: 
0070: 
0071: 
0072: 
0073: 
0075: 
0075: 
0076: 
0077: 
0078: 
0079: 
0080: 
0081: 
0082: 
0083: 
0084: 
0085: 
0086: 
0087: 
0088: 
0089: 
0090: 
0091: 
0092: 
0093: 
0094: 
0095: 
0096: 
0097: 
0098: 
0099: 
0100: 
0101: 
0102: 
0103: 
0104: 
0105: 
0106: 
0107: 
0108: 
0109: 
0110: 
0111: 
0112: 
0113: 
0114: 
0115: 
0116: 
0117: 
0118: 
0119: 
0120: 
0121: 
0122: 
0123: 
oteh: 
0125: 
0126: 
0127: 
0128: 
0129: 
0130: 
0131: 
0132: 
0133: 
0135: 
0135: 
0136: 
0137: 
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14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 
14D8 


14D8 


14D8 
14DA 
18DD 


14EO 
14E3 
14E5 
14E8 
14EB 
14ED 
14FO 
14F2 
14F 3 
14F5 
14F7 
1UFA 
14 FC 
14FE 
1500 
1503 
1505 
1508 
150A 
150D 
150F 
Tol 


1513 
1515 
1518 
151A 


15 1D 
151F 
1522 
152 


A9 
UC 


20 
AO 
20 
20 
30 
AD 
85 
18 
69 
85 
AD 
85 
69 
85 
AD 
85 
AD 


20 
A9 
ÂO 
91 


A9 
8D 
A9 
8D 


AO 
20 
AO 
QA 


1E 
83 
51 


68 
00 
1E 
87 
F3 


E2 


01 
E8 
64 
E3 
00 
E9 
65 
El 
66 


D3 
TT 
00 
E6 


3D 
7C 
15 
7D 


20 
TE 
EF 


1A 
1F 


12 


17 
13 


1À 


1A 


1À 


1E 


1À 


TA 


17 


BURN N KN HRN HHN HH HK 


SUBROUTINES IN PM 
BNENNEN EN KHK EN URK 


INPAR & $1387 
RECCHA *& $12AE 
PRCHA &# $1334 
PRBYT & $128F 
PRSP 5 $11F3 
ASHETT & $1H1E 
CRLF " $11E8 
RESIN #&# $ 1268 
RESTTY & $14UBC 
STEP : $1UCF 


IOCORR: ADAPTS THE PBDD TO THE VERSION D SITUATION, 
PRIOR TO ASSEMBLING 


IOCORR LDAIM $1E 
STA PBDD PBO IS INPUT 
JMP ASSEMB ASSEMBLE THE PRCGRAM 


EDITC: COLD START ENTRY OF PME 


EDITC JSR RESIN RESET INPUT BUFFERS 
LDYIM $00 
JSR MESSA '"BEGAD,ENDAD:" 
JSR INPAR GET PARAMETERS 
BMI EDITC TRY IT AGAIN, IF NOT DONE PROPERLY 
LDA PARAL LOAD BEGADL 
STAZ BEGADL 
CLC 
ADCIM $01 
STAZ CENDL CENDL = BEGADL+1 
LDA PARAH 
STAZ BEGADH LOAD BEGADH 
ADCIM $00 
STAZ CENDH CENDH z= BEGADH+AARRY 
LDA PARBL 
STAZ ENDADL LOAD ENDAD 
LDA PARBH 
STAZ ENDADH LOAD ENDADH 
JSR BEGIN PRINT POINTER CURAD 
LDAIM $77 EQUALS BEGAD 
LDYIM $00 
STAIY CURADL EOF 77 ON FIRST ADDRESS BEGAD 


BRK: WARM START ENTRY OF PME, INCLUDING THE SPECIFI- 
CATION OF THE BRK JUMP VECTOR 


BRK LDAIM $3D 


STA BRKTL 
LDAIM $15 
STA BRKTH 


EDITW: MAY BE USED AS A WARM START ENTRY OF PME 
PROVIDED THE BRK JUMP VECTOR HAS BEEN SPECIFIED 
BEFOREHAND. 
EDITW LDYIM $20 

JSR MESSA "PM EDITOR" 

LDYIM $FF 

TXS RESET STACK POINTER 


THE CENTRAL LABEL "WARM" OF PME STARTS STARTS 
WITH THE K-KEY ROUTINE 


138: 
139: 
140: 
141: 
142: 
143: 
Tul: 
145: 
146: 
147: 
148: 
149: 
150: 
151: 
158% 
153: 
154: 
155: 
156: 
157% 
158: 
159: 
160: 
161: 
162: 
163: 
164: 
165: 
166: 
167: 
168: 
169: 
170: 
A1 
A2 
Erst 
174: 
175: 
176: 
TAP 
178 
179: 
180: 
181: 
182: 
"183: 
"184: 
1185: 
1186: 
"187: 
1188: 
1189: 
190: 
}191: 
)192: 
}1935 
)194: 
JT: 
»196: 
)197: 
»198: 
199: 
)200: 
2201: 
)202: 
203: 
3204: 
Je05: 
}206: 


1525 
1528 
152B 
152D 
1oeE 
1532 
1535 


1538 
153A 
153C 
153F 
1542 
1545 
1547 
1549 
154C 


154E 
1550 
1552 
1545 
1557 
1559 
155B 
155D 
1560 
1562 
1565 
1567 
156A 
156C 
156E 
1570 
1572 


1574 
1576 
1578 
157B 
157 D 
1580 
1582 
1585 
1587 
1589 
1588 
158D 
158F 
159 1 
1592 
1594 
1596 


20 
20 
C9 
DO 
20 
20 
4C 


Cg 
DO 
20 
20 
20 


AO 
20 
FO 


Cg 


20 
30 
10 
C9 
DO 
20 
30 
20 
90 
20 
FO 
AO 
DO 
AO 
DO 


Cg 
DO 
20 
30 
20 
A5 
20 
AO 
B 
C5 
DO 
C6 
FO 
C8 
B1 
C5 
DO 


EB 
AE 
4B 
09 
83 
EÁ 
25 


UC 
12 
D3 
EB 
F8 
F8 
1F 
TE 
D7 


20 


F8 
CE 
EE 
49 
17 
A9 
OA 
D6 
09 
17 


OE 
D9 


D5 


53 
40 
A9 
EF 
D3 


60 
00 
E6 
FB 
20 
F6 
12 


E6 
FA 


15 


16 
JZ 


1E 
TE 
15 


1E 
16 
TE 


17 


1E 


16 
16 
1E 


1E 
1E 


(*DELETE") 


WARM 


JSR 
JSR 
CMP IM 
BNE 
JSR 
JSR 
JMP 


LABEL LIST: 


LIST 


LST 


DONE 
MESS 


LABEL INSERT: 


SKIP 


INSERT 


MEM 


ILLKEY 


FULL 


CMPIM 
BNE 
JSR 
JSR 
JSR 
BMI 
LDYIM 
JSR 
BEQ 


CMPIM 
BNE 
JSR 
BMI 
BPL 
CMPIM 
BNE 
JSR 
BMI 
JSR 
BCG 
JSR 
BEQ 
LDYIM 
BNE 
LDYIM 


PRINS 


PRINT CURRENT INSTRUCTION 


RECCHA WAIT FOR A DEPRESSED KEY 


“K 
LIST 
UP 


IS IT THE K-KEY? 
CONTINUE IF NOT 
ADAPT WORKSPACE 


RECEND ADAPT CURRENT END ADDRESS POINTER 


WARM 


READY 


L-KEY ROUTINE 


aL L-KEY DEPRESSED? 

SKIP IF NOT CONTINUE 

BEGIN START AT BEGAD 

PRINS PRINT CURRENT INSTRUCTION 

NEXT ADAPT INSTRUCTION POINTER 

LST 

$1F 
MESSA PRINT "DONE" 
WARM _ READY 

LABEL SKIP: SPACE BAR KEY ROUTINE 
I-KEY ROUTINE 
SPACE BAR DEPRESSED? 

INSERT CONTINUE IF NOT 
NEXT ADAPT INSTRUCTION POINTER 
WARM READY 
DONE PRINT "DONE" IF NO FURTHER INSTR., AVAILABLE 
I I-KEY DEPRESSED? 
SEARCH IF NOT CONTINUE 
READIN READ NEW INSTRUCTION 

ILLKEY PRINT "ILLEGAL KEY" IF NEW ISTR. ISN'T VALID 
CHECK 
FULL PRINT "FULL" IF MEMORY IS FULL 
FILLWS LOAD NEW INSTR. IN MEMORY 
WARM _ READY 
$0E 
MESS PRINT “ILLEGAL KEY" 
$1A 
MESS PRINT "FULL" 


BNE 


LABEL SEARCH: S-KEY 


ROUTINE 


ANY BYTE PATTERN (INSTRUCTION) MAY BE SEARCHED FOR. 

IF THE INSTRUCTION SEARCHED FOR IS FOUND, 

ONE MAY SEARCH FOR THE SAME INSTRUCTION ON A HIGHER 
ADDRESS, BY PRESSING THE KEY “"Y", THE SEARCHING PRO- 
CESS ALWAYS HAS TO BE CONCLUDED BY THE MESSAGE FDONE". 
THIS OCCURS EITHER BECAUSE ALL OR NO INSTRUCTIONS ARE 
FOUND, OR BY PRESSING AN ARBITRARY SOFTWARE-KEY (I.E. 
A KEY GENERATING AN ASCII CODE WHEN DEPRESSED), 

WITH THE EXEPTION OF THE ‘Y'-KEY. 

SEARCH CMPIM “S S-KEY DEPRESSED? 


BNE BACK IF NOT CONTINUE 
JSR READIN READ INSTR. TO BE SEARCHED FOR 
BMI ILLKEY "ILLEGAL KEY" IF NOT PROPERLY DONE 
JSR BEGIN START AT BEGAD 

SCAN LDAZ POINTH GET OPCODE OF SEARCH INSTR. 
JSR LENACC GET LENGTH OF SEARCH INSTR. 
LDYIM $00 
LDAIY CURADL GET OPCODE OF THE CURRENT INSTR. 
CMPZ POINTH COMPARE IT AGAINST OPCODE OF THE SEARCH INST. 
BNE AGAIN IF NO MATCH THEN NEXT INSIR. 
DECZ BYTES 
BEQ FOUND CONTINUE, IF INSTR. LENGTH IS 2 OR 3 
INY 
LDAIY CURADL GET NEXT BYTE IN MEMORY 
CMPZ POINTL COMP. IT AGAINST 1ST OPERAND BYTE 
BNE AGAIN IF NO MATCH NEXT INSTR. 
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0207: 
0208: 
0209: 
0210: 
0211: 
0212: 
0213: 
O2: 
Oeste. 
0216: 
Del: 
0218: 
0219: 
0220: 
0221: 
Dees: 
0223: 
0224: 
0225: 
0226: 
0227: 
0228: 
0229: 
0230: 
0231: 
0232: 
0233: 
0234: 
0235: 
0236: 
0237: 
0238: 
0239: 
o240: 
oeli: 
oe2k2: 
0243: 
O2: 
o25: 
0246: 
o24T: 
o248: 
o24ug: 
0250: 
0251: 
0252: 
0253: 
oesk: 
0255 
0256: 
0257 
0258: 
0259: 
0260: 
0261: 
02627 
0263: 
0264: 
0265: 
0266: 
0267: 
0268: 
0269: 
0270: 
0271: 
gere: 
0273: 
o27u: 
O2: 


1598 
159 A 
159C 
159D 
159F 
15A1 
15A3 
15A6 
15A9 
15AB 
15AD 
15B0 
15B3 
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15B8 
15BA 
15BC 
15BE 
15C0 
1502 
15C4 
15C6 
15C8 
15CA 
15CC 
15CE 
15D0 
15D2 
15D4 
15D7 
15DA 
15DC 
15DE 
15EO 
15E2 
15EL 
15E6 
15E9 


15EC 
15EE 
15FO 
15F 3 
15F6 
15F8 
15FA 
15FC 
15FE 
1601 
1604 
1606 
1608 
160A 
160C 
160E 
1610 
1613 


1616 
1618 
16 1A 
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C6 
FO 
C8 
B1 
C5 
DO 
20 
20 
Cg 
DO 
20 
20 
30 
4C 


Cg 
DO 
A5 
85 
A5 
85 
C5 
DO 
A5 
C5 
DO 
FO 
AO 
B 
20 
20 
A5 
C5 
DO 
A5 
C5 
DO 
20 
ue 


C9 
DO 
20 
BC 
C9 
DO 
A9 
85 
20 
20 
C6 
FO 
AO 
B1 
C9 
FO 
20 
UC 


C9 
DO 
Ag 


F6 
07 


E6 
F9 
OA 
EB 
AE 
59 
08 
5C 
F8 
CB 
17 


5Â 
30 
E2 
EC 
E3 
ED 
E77 
08 
E2 
E6 
02 
19 
00 
EC 
60 
80 
E6 
EC 
FO 
E7 
ED 
EA 
Pe 
25 


54 
06 
D3 
89 
50 
1C 
OF 


ET 


F8 
ET 
EB 
00 
E6 
11 
E3 
EB 
FE 


58 
13 
2f 


16 
12 


1E 
TE 


15 


1E 
16 


16 
1D 


1E 
19 


TE 
TE 


16 
15 


DECZ BYTES 
BEQ FOUND 


INY 

LDAIY CURADL 
CMPZ INH 
BNE AGAIN 


FOUND JSR PRINS 
JSR RECCHA 


CMPIM “Y 
BNE DNE 
AGAIN JSR OPLEN 
JSR NEXT 
BMI SCAN 


DNE JMP DONE 


CONTINUE IF LENGTH OF CURR. INSTR. IS 3 


GET NEXT BYTE IN MEMORY 

COMP. IT AGAINST 2ND OPERAND BYTE 
IF NO MATCH NEXT INSTR. 

PRINT OUT THE SPECIFIED INSTRUCTION 
WAIT FOR A DEPRESSED KEY 

Y-KEY DEPRESSED? 

IF NOT PRINT "DONE" 

GET LENGTH OF THE CURR. INSTR. 
ADAPT INSTR. POINTER 

CONTINUE SEARCH IF STILL INSTR. AVAILAB 
ELSE PRINT "DONE" 


LABEL BACK: Z-KEY ROUTINE 


BACK CMPIM “Z 
BNE TOF 
LDAZ BEGADL 
STAZ TABLEL 
LDAZ BEGADH 
STAZ TABLEH 
CMPZ CURADH 
BNE BCKA 
LDAZ BEGADL 
CMPZ CURADL 
BNE BCKA 
BEQ BCKB 

BCKA LDYIM $00 
LDAIY TABLEL 
JSR LENACC 
JSR INCTAB 
LDAZ CURADL 
CMPZ TABLEL 
BNE BCKA 
LDAZ CURADH 
CMPZ TABLEH 
BNE BCKA 
JSR DECURA 

BCKB JMP WARM 


Z-KEY DEPRESSED? 
IF NOT CONTINUE 


TABLE :=BEGAD 
TABLEH:=CURADH? 
IF NOT INCREASE TABLE 


TABLEL : =CURADL? 
IF NOT INCREASE TABLE 
ELSE PRINT FIRST INSTRUCTION 


GET LENGTH OF INSTR. AT 
WHICH POINT IS POINTED 
INCREASE POINT BY BYTES 


TABLEL : =CURADL? 
IF NOT INCREASE TABLE 


TABLEH: =CURADH 
IF NOT INCREASE TABLE 
DECREASE INSTRUCTION POINTER BY BYTES 


LABEL TOF: T-KEY ROUTINE 


LABEL SXTEEN: P-KEY 


TOF CMPIM “T 

BNE SXTEEN 

JSR BEGIN 
TOFEND JMP WARM 
SXTEEN CMPIM “P 

BNE ASMBLR 


LDAIM $0F 

STAZ COUNT 
LINES JSR OPLEN 

JSR NEXT 


DECZ COUNT 
BEQ TOFEND 
LDYIM $00 
LDAIY CURADL 
CMPIM $77 
BEQ TOFEND 
JSR PRINS 
JMP LINES 
LABEL ASMBLR: X-KEY 


ROUTINE 


T-KEY DEPRESSED? 

IF NOT CONTINUE 

INSTR. POINTER = BEGAD 
READY 

P-KEY DEPRESSED? 

IF NOT CONTINUE 

15 INSTR. TO BE PRINTED 


GET LENGTH OF CURRENT INSTR. 
ADAPT INSTR. POINTER 


READY IF 15 INSTR. HAVE BEEN PRINTED 


READY IF OPCODE IS 77 
PRINT INSTRUCTION 
NEXT INSTRUCTION 
ROUTINE 


LABEL ASSEND: RESTORE 1/0 AFTER ASSEMBLING 


ASMBLR CMPIM “X 
BNE INPUT 
LDAIM ASSEND 


X-KEY DEPRESSED? 
IF NOT CONTINUE 
SPECIFY NMI JUMP VECTOR 


0276: 
oe2e77: 
0278: 
0279: 
0280: 
0281: 
0282: 
0283: 
0284: 
0285: 
0286: 
0287: 
0288: 
0289: 
0290: 
oe91: 
0292: 
0293: 
oe2gk: 
0295: 
0296: 
0297: 
0298: 
0299: 
0300: 
0301: 
0302: 
0303: 
0304: 
0305: 
0306: 
0307: 
0308: 
0309: 
0310: 
0311: 
0312: 
0313: 
0314: 
Gast 
0316: 
0317: 
0318: 
0319: 
0320: 
0321: 
0322: 
0323: 
0324: 
0325: 
0326: 
0327: 
0328: 
0329: 
0330: 
0331: 
0332: 
0333: 
0334: 
0335: 
0336: 
0337: 
0338: 
0339: 
0340: 
0341: 
0342: 
0343: 
0344: 


16 1C 
161F 
1621 
1624 
1627 
1624 


162D 
1630 
1632 
1635 
1637 
163A 
163D 
163F 
1641 
1644 


1647 
1644 
164C 
164F 
1652 
1654 
1657 
1659 
165C 
165E 
1661 
1663 
1665 
1668 
166A 
166C 
166F 


1672 


8D 
Ag 
8D 
HC 
20 
UC 


20 
30 
20 
30 
20 
20 
A5 
85 
UC 
UC 


20 
AO 
20 
20 
30 
AD 
85 
AD 
85 
AD 
85 
85 
AD 
85 
85 
20 
ie 


38 


7À 
16 
7B 
D8 
BC 
68 


91 
12 
AE 
OD 
5C 
F8 
FD 
F6 
62 
6C 


68 
00 
1E 
87 


63 
E2 
6% 
E3 


El 
E8 
66 
E5 
Eg 


13 


1673 A5 E6 


1A 
1À 


14 
17 


16 
16 


1E 
1E 


1D 
15 


12 


17 
13 


1A 
1A 


1A 


1E 
15 


STA NMIL 
LDAIM ASSEND /256 
STA NMIH 


JMP IOCORR PREPARE I/O PRIOR TO ASSEMBLING 
ASSEND JSR RESTTY RESTORE 1/0: PM SITUATION 
JMP LABLST LIST THE HEXADECIMAL LABELS 


LABEL INPUT: I-KEY ROUTINE 

NOTE: NO NON-NUMERICAL KEY HAS TO BE DEPRESSED 
PME AUTOMATICALLY ASSUMES THE INPUT KEY FUNCTION 
HAS BEEN OPTED FOR AS SOON AS THE DATA BELONGING 
TO THE NEW INSTR. HAS BEEN SPECIFIED 


INPUT JSR BYT GET THE 2ND NIBBLE OF THE 1ST BYTE 
BMI WRONG 
JSR READ GET THE OTHER BYTE(S) 
BMI WRONG 
JSR OPLEN GET LENGTH OF THE CURRRENT INSTR. 
JSR NEXT ADAPT INSTR. POINTER 
LDAZ TEMPX GET LENGTH OF NEW INSTR. 
STAZ BYTES AND STORE IT IN BYTES 
JMP MEM LOAD MEMORY WITH NEW INSTRUCTION 
WRONG JMP ILLKEY PRINT "ILLEGAL KEY" 


END OF THE PME MAIN ROUTINE 


SEMI WARM START ("LUKE WARM") ENTRY OF PME 
FOLLOWING THE SPECIFICATION BY THE USER 

OF BEGAD AND ENDAD THE INSTRUCTION POINTER 

CURAD IS POINTED AT BEGAD AND THE CURRENT 

END ADDRESS POINTER CEND IS POINTED AT ENDAD. 
AFTER THIS PME IS ENTERED BY THE WARM START ENTRY 


SEMIW JSR RESIN RESET INPUT BUFFERS 
LDYIM $00 
JSR MESSA "BEGAD,ENDAD:" 
JSR INPAR GET BEGAD AND ENDAD 
BMI SEMIW TRY IT AGAIN IF NOT DONE PROPERLY 


LDA PARAL 
STAZ BEGADL 
LDA PARAH 


STAZ BEGADH 

LDA PARBL 

STAZ ENDADL 

STAZ CENDL 

LDA PARBH 

STAZ ENDADH 

STAZ CENDH CEND = ENDAD 

JSR BEGIN CURAD = BEGAD 

JMP BRK JUMP TO WARM START 


NHA HN HNK N HNHK HH HA KH 


SUBROUTINES OF PME 
NRNNKRRKENK KEN KKK KR 


DECURA 

THE INSTRUCTION POINTER IS DECREASED BY THE 
NUMBER OF BYTES — BEING THE LENGTH OF THE 
INSTRUCTION — WHICH PRECEEDS THE CURRENT 
INSTRUCTION IN MEMORY. 


DECURA SEC 
LDAZ CURADL 
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0345: 
0346: 
0347: 
0348: 
0349: 
0350: 
0351: 
0352: 
0393: 
0354: 
0355: 
0356: 
0357: 
0358: 
0359: 
0360: 
0361: 
0362: 
0363: 
0364: 
0365: 
0366: 
0367: 
0368: 
0369: 
0370: 
OST 
0372: 
03738 
0374: 
0375: 
0376: 
0377: 
0378: 
0379: 
0380: 
0381: 
0382: 
0383: 
0384: 
0385: 
0386: 
0387: 
0388: 
0389: 
0390: 
0391: 
0392: 
0393: 
0394: 
0395: 
0396: 
0397: 
0398: 
0399: 
O400: 
OO: 
ok0e2: 
0403: 
olo4: 
0ok05: 
oh06: 
O407: 
0408: 
oog: 
Ou10: 
OUT: 
O4 12: 
0413: 
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1675 
1677 
1679 
167B 
167D 
167F 


1680 
1681 
1683 
1685 
1687 
1689 
168B 
168D 


168E 
1691 
1694 
1696 
1697 
1698 
1699 
169 A 
169C 
169F 
16A2 
16A4 
16A6 
16A8 


16A9 
16AC 
16AE 
16B0 
16B3 
16B5 
16B7 
16B9 
16BB 
16BE 
16C1 
16C3 
16C5 
16C7 
16C9 
16CC 
16CF 
16D 1 


E5 
85 
A5 
E9 


60 


18 
A5 
65 
85 
A5 
69 


60 


20 
20 


OA 
OA 
OA 
OA 
85 
20 
20 
30 
05 
A2 
60 


20 
30 


20 
84 


C6 
FO 
20 
20 


30 


C6 
FO 
20 
20 
30 
85 


F6 
E6 
E7 
00 
E7 


EC 
F6 
EC 
ED 
00 
ED 


AE 
1E 
12 


FE 


1E 
Ok 
FE 
OO 


8E 
er 
FB 
60 
F7 
FD 
F7 
18 
F3 
8E 
12 
FA 
Ref 
OA 
F3 
8E 
ok 
F9 


12 
14 


12 
14 


16 


1E 


A ok 
CN ai 


SBCZ BYTES 
STAZ CURADL CURADL:=CURADL-BYTES 
LDAZ CURADH 


SBCIM $00 
STAZ CURADH CURADH:=CURADH-BORROW 
RTS 


SUBROUTINR INCTAB 
INCRESES THE POINTER TABLE BY THE AMOUNT DETERMINED 
BY THE CONTENTS OF BYTES (INSTRUCTION LENGTH) 


INCTAB CLC 
LDAZ TABLEL 
ADCZ BYTES 


STAZ TABLEL TABLE:=TABLE + BYTES 
LDAZ TABLEH 


ADCIM $00 
STAZ TABLEH 
RTS 


THE SUBROUTINE BYTIN LOADS THE ACCU WITH 
WITH DATA WHICH BELONGS TO TWO NUMERICAL KEYS 
DEPRESSED. RETURNING FROM SUBROUTINE N=1 AND 
Zz0 IF A NON-NUMERICAL KEY WAS DEPRESSED. TWO 
SUCCESIVELY DEPRESSED NUMERICAL KEYS WILL 
RESULT INTO N=0 AND Z=1 


BYTIN JSR RECCHA WAIT FOR A DEPRESSED KEY 
BYT JSR ASHETT CONVERT IT TO A DATA NIBBLE 
BMI RETURN ERROR EXIT IF KEY <)> O...F 
ASLA ENTERED DATA IS NEW HIGHER DATA NIBB 
ASLA 
ASLA 
ASLA 
STAZ NIBBLE SAVE HIGHER DATA NIBBLE 
JSR RECCHA WAIT FOR A DEPRESSED KEY 
JSR ASHETT CONVERT IT TO A DATA NIBBLE 
BMI RETURN ERROR EXIT IF KEY <> O...F 
ORAZ NIBBLE ISERT NEW LOWER DATA NIBBLE 
LDXIM $00 RESET N-FLAG, SET Z-FLAG 
RETURN RTS 


THE SUBROUTINE READIN LOADS EITHER ONE, 
TWO OR THREE DATA BUFFERS DEPENDING 
OF THE INSTRUCTION LENGTH SPECIFIED BY 
THE OPCODE. 
NORMAL EXIT: Z=1, N=0 
ERROR EXIT: Z=0, N=f 
READIN JSR BYTIN WAIT FOR OPCODE 
BMI RDB ERROR IF KEY <ò 0...F 
READ STAZ POINTH STORE OPCODE IN POINTH 
JSR LENACC GET INSTRUCTION LENGTH 
STYZ COUNT AND COPY IT INTO COUNT 
STYZ TEMPX AS WELL AS IN TEMPX 
DECZ COUNT 
BEQ RDA RETURN IF ONE BYTE INSTR. 
JSR PRSP PRINT A SPACE 
JSR BYTIN WAIT FOR (1ST) OPERAND 
BMI RDB ERROR IF KEY <> 0...F 
STAZ POINTL STORE (1ST) OPERND IN POINTL 
DECZ COUNT 
BEQ RDA RETURN IF TWO BYTE INSTR. 
JSR PRSP PRINT A SPACE 
JSR BYTIN WAIT FOR 2ND OPERAND 
BMI RDB ERROR IF KEY <> 0...F 
STAZ INH STORE 2ND OPERAND IN INH 


ou 14: 
O415: 
ou16: 
0417: 
o418: 


ou 19: 


o420: 
ok21: 


oke22: 
ou23: 
ob24: 


ot25: 
026: 
0427: 


0428: 
oke29: 


O4 30: 
o431: 


o432: 


0433: 
O43 4: 


0435: 
0436: 


0837: 
0438: 
O439: 


ouäO: 
OUä1: 
ou4y2: 
OU43: 
OLU4; 
ou45: 
Ou46: 
OUT: 
ou48: 


og: 


oh50: 
ok5 1: 
oh52: 
0453: 


Ou54: 


o455: 
ou56: 


Oo457: 
ou58: 
O459: 


O460: 
O6 1: 
0462: 


Oon63: 
O464: 


0465: 
0466: 


ON6”7: 
ou68: 
ob69: 
Ok7O: 
OUT 1: 
o472: 
0473: 
OTH: 


0475: 


ou76: 
O477: 
0478: 
Ou79: 


ou80: 
04u81: 
ou82: 


16D3 
16D5 


16D6 
16D9 
16DA 
16DC 
16DE 
16E0 
16E2 
16E 4 
16E6 
16E9 
16EA 


16EB 
16EE 
16F 1 
16F 3 
16F5 
16F8 
16FA 
16FD 
16FF 
1701 
1703 
1706 
1708 
170B 
1706 
170E 
1710 
1712 
1713 
1714 
17 16 
1719 
171B 
17 1D 


17 1E 
Ten 
1724 
1726 
1728 
172B 


A2 
60 


20 
38 
A5 
E9 
55 
A5 
55 
90 
20 
38 
60 


20 
20 
A6 
A5 
20 
A5 
20 
Ag 
85 
AO 
20 
B1 
20 
38 
A5 
E9 


C8 
CA 
DO 
20 
C6 
DO 
60 


20 
B9 
C9 
FO 
20 
C8 


00 


DC 1E 


El 
02 
E8 
55 
EQ 
O4 
EA TE 


E8 11 
5C 1E 
F6 
E7 
gr 12 
E6 
8F 12 
OF 
EE 
00 
F3 11 
E6 
8F 12 


EE 
03 
EE 


ED 
F3 11 
EE 
F9 


E8 11 


03 
07 
34 15 


RDA LDXIM $00 Z=1l, N=0 
RDB RTS 


THE SUBROUTINE CHECK VERIFIES IF THERE IS STILL 
ROOM IN THE WORKSPACE AREA FOR A NEW INSTRUCTION. 
THE WORKSPACE IS LIMITED BY BEGAD AND ENDAD. 
CHECK RETURNS WITH: 

C=0 IF THERE IS NO ROOM FOR THE INSTR. 

C=1 IF THERE IS ROOM FOR THE NEW INSTRUCTION 


CHECK Se ADCEND ADJUST CURRENT ENDADDRESS POINTER 
SE 
LDAZ ENDADL 
SBCIM $02 
SBCZ CENDL 
LDAZ ENDADH CARRY DETERMINED BY ENDAD-2-CEND 
SBCZ CENDH 
BCC CHKEND EXIT IF NO ROOM ANYMORE 
JSR RECEND READJUST CURRENT END ADDRESS POINTER 
SEC 

CHKEND RTS 


THE SUBROUTINE PRINS PRINTS AN INSTRUCTION 
SPECIFIED BY THE INSTRUCTION POINTER CURAD, 

THE CONTENTS OF THE INSTRUCTION POINTER IS ALSO 
PRINTED. BY PRINTING A CERTAIN NUMBER OF SPACES 
THE POSITION OF THE CARRIAGE IS IDENTICAL TO THE 
FIRST POSITION OF THE SYSTEM COMMAND COLUMN. 


PRINS JSR CRLF PRINT A NEW LINE 
JSR OPLEN GET LENGTH OF INSTRUCTION 
LDXZ BYTES TO BE PRINTED 
LDAZ CURADH 
JSR PRBYT PRINT HIGHER ADDRESS BYTE 
LDAZ CURADL 
JSR PRBYT PRINT LOWER ADDRESS BYTE 
LDAIM $OF 
STAZ LABELS MAXIMUM NUMBER OF SPACES 
LDYIM $00 

PRT JSR PRSP PRINT A SPACE 
LDAIY CURADL GET BYTE TO BE PRINTED 
JSR PRBYT AND PRINT IT 
SEC 
LDAZ LABELS DECREASE NUMBER OF SPACES 
SBCIM $03 TO BE PRINTED 
STAZ LABELS BY 3 


INY SET UP FOR NEXT BYTE 
DEX TO BE PRINTED 
BNE PRT IF THERE IS ANYONE 
SP JSR PRSP PRINT A NUMBER OF SPACES 
DECZ LABELS 
BNE SP 
RTS RETURN 


THE SUBROUTINE MESSA IS IDENTICAL WITH THE 
PM SUBROUTINE MESSY, EXEPT FOR A DIFFERENT 


LOOKUP TABLE 


MESSA JSR CRLF PRINT A NEW LINE 
MA LDAY TXT GET CHARACTER TO BE PRINTED 
CMPIM $03 EOT CHARACTER? 
BEQ TXTEND IF YES RETURN 
JSR PRCHA PRINT A CHARACTER 
INY SET UP FOR NEXT CHARACTER 
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0483: 172C BG 21 17 JMP MA 


O484: 172F 60 TXTEND RTS READY 
0485: 

04u86: 

o487: LOOKUP TABLE TXT 

0488: : 

O48G: 1730 H2 TXT “B Y=00 
O490: 1731 45 'E 

OuG1: 1732 H7 G 

O4G2: 1733 41 A 

0493: 1734 HU D 


og: 1735 2C 


5 % 
0495: 1736 45 = _E 
o4u96: 1737 UE = ‚N 
0497: 1738 Hà z ‚D 
0498: 1739 H1 = „À 
O4GG: 173A BU = ge, 
0500: 173B 3A = E 
0501: 1/3C 20 = E 
0502: 173D 03 = $03 
0503: 173E 49 = oi Y=0E 
0504: 173F UC = Ë 
0505: 1740 HC = iid 
0506: 1741 45 = TE 
0507: 1752 47 = "G 
0508: 1743 41 e “A 
0509: 1784 UC = SL 
0510: 1745 20 = a 
0511: 1786 4B = "K 
0512: 1747 45 = E 
0513: 1748 59 = EY 
0514: 1749 03 = $03 
0515: 174A 46 8 ‚F Y=1A 
0516: 174B 55 = ‚U 
0517: 174C HC = Ù 
0518: 174D HC = SL 
0519: 175E 03 = $03 
0520: 174F Ul = D Y=1F 
0521: 1750 UF = “O0 
0522: 1751 LE = ZN 
0523: 1752 45 = TE 
0524: 1753 03 = $03 
0525: 1754 50 = P Y=24 
0526: 1755 HD = “M 
0527: 1756 20 E g 
0528: 1757 45 = ‚E 
0529: 1758 UU = D 
0530: 1759 49 = “I 
0531: 175A 54 = ar 
0532: 175B äF = O 
0533: 175C 52 = TR 
0534: 175D 03 = $03 
0535: 175E HC = EL Y=2E 
0536: 175F 41 = TA 
0537: 1760 42 = “B 
0538: 1761 20 = 5 
0540: 1763 03 = $03 
O5U1: 1764 3A = : Y=34 
0542: 1765 20 = : 
0543: 1766 2l = e 
Ost: 1767 03 = $03 
0545: 
0546: THE INSTRUCTIONS FOLLOWING THE LABEL LABLST 
0547: | DEAL WITH THE PRINTING OF ALL HEXADECIMAL LABELS 
Re AFTER THE PROGRAM HAS BEEN ASSEMBLED 
05 e 
0550: 
0551: 1768 AO FF LABLST LDYIM $FF 
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0552: 
0553: 
0554: 
05552 
0556: 
O5ST: 
0558: 
0559: 
0560: 
0561: 
0562: 
0563: 
0564: 
0565: 
0566: 
0567: 
0568: 
0569: 
0570: 
0571: 
0972: 
0573: 
0574: 
0519: 
0576: 
0577: 
0578: 
0579: 
0580: 
0581: 
0582: 
0583: 
0584: 
0585: 
0586: 
0587: 
0588: 
0589: 
0590: 
059%: 
0592: 
0593: 
o5ok: 
0595: 
0596: 
0597: 
0598: 
0599: 
0600: 
0601: 
0602: 
0603: 
0604: 
0605: 
0606: 
0607: 
0608: 
0609: 
0610: 
0611: 
0612: 
0613: 
0614: 
0615: 
0616: 
0617: 
0618: 
0619: 
0620: 


176A 
176D 
176F 
1771 
1773 
1776 
1778 
177A 
177D 
177E 
1780 
1782 


1785 


1787 
1789 
178C 
178D 
178F 
1792 
1795 
1796 
1798 
179 A 
179B 
179D 
179F 
17A2 


1745 
1748 
17AA 
17AD 
17BO0 
17B2 
17B5 
17B7 
17B9 
17BB 
17BD 
17C0 
17C3 
176 
17C7 
17C9 
17CB 
17 CD 
17 CF 
17D1 
17D3 


20 
A2 
84 
AO 
20 
Al 
B1 
20 
88 
84 
AO 
20 
A4 
B1 
20 
88 
B 
20 
20 
88 
Ch 
FO 


CA 


DO 
FO 
20 
4C 


20 
AO 
20 
20 


30 


20 
AO 
B1 
C9 
FO 
20 
20 
UC 
18 
A5 
69 
85 


69 
85 
4C 


E8 


FD 
2E 
21 
FD 
EC 
8F 


FD 
34 
2l 
ED 
EC 
8F 


EC 
8F 
F3 


EE 
05 


D2 
CB 


D3 
1D 


65 
00 
1E 
87 
F3 
D3 
00 
E6 
77 
09 
60 
F8 
B5 


E6 
01 
E8 
E7 
00 
EQ 
13 


11 


17 


1E 
15 


12 


17 
Is 


TE 


1E 
1E 
17 


15 


LBLSTA JSR CRLF PRINT ON A NEW LINE 
LDXIM $04 5 LABELS ON EACH LINE 
LBLSTB STYZ TEMPX SAVE Y 
LDYIM $2E WLAB $" 
JSR MA 
LDYZ TEMPX RESTORE Y 
LDAIY TABLEL GET LABEL NUMBER 
JSR PRBYT PRINT LABEL NUMBER 
DEY 
STYZ TEMPX' SAVE Y 
LDYIM $3U RE 
JSR MA 
LDYZ TEMPX RESTORE Y 
LDAIY TABLEL GET HIGHER ADDRESS BYTE 
JSR PRBYT AND PRINT IT 
DEY 
LDAIY TABLEL GET LOWER ADDRESS BYTE 
JSR PRBYT AND PRINT IT 
JSR PRSP PRINT A SPACE 
DEY SETUP FOR NEXT LABEL 
CPYZ LABELS ALL LABELS PRINTED 
BEQ LBLSTC IF NOT SET UP FOR NEXT LABEL 
DEX 
BNE LBLSTB ON THE SAME LINE 
BEG LBLSTA OR ON A NEW LINE 
LBLSTC JSR BEGIN INSTRUCTION POINTER = BEGAD 
JMP EDITW WARM START ENTRY OF PME WITHOUT 


BRK JUMP VECTOR SPECIFICATION 


THE WARM CEND ENTRY (LABEL SEACND) OF PME 
RESTORES THE POSITION OF THE CURRENT END 
ADDRESS POINTER CEND, AFTER SPECIFICATION, 


BY THE USER, OF BEGAD AND ENDAD, 
PSEUDO OPCODE 77, 


Ei 


AND AFTER FINDING A 
E. AN EOF CHARACTER. THIS IS 


FOLLOWED BY A JUMP TO THE WARM START ENTRY OF PME. 


SEACND JSR RESIN RESET INPUT BUFFERS 

LDYIM $00 

JSR MESSA "BEGAD,ENDAD" 

JSR INPAR GET BEGAD AND ENDAD 

BMI SEACND TRY IT AGAIN IF NOT PROPERLY DONE 

JSR BEGIN INSTR. POINTER=BEGAD 
SCNDA LDYIM $00 

LDAIY CURADL GET CURRENT OPCODE 

CMPIM $77 rs IT OPCODB 777 

BEQ SCNDB IF NOT CONTINUE 

JSR LENACC GET CURRENT INSTR. LENGTH 

JSR NEXT ADJUST INSTR., POINTER 

JMP SCNDA AND CHECK AGAIN FOR OPCODE 77 
SCNDB CLC 

LDAZ CURADL 

ADCIM $01 

STAZ CENDL CENDL:=CURADL+1 

LDAZ CURADH 

ADCIM $00 

STAZ CENDH GCENDH:=CURADH+CARRY 

JMP BRK WARM START ENTRY OF PME 


THE INSTRUCTIONS FOLLOWING THE LABEL BINAR 


AND THE INSTRUCTIONS FOLLOWING THE LABEL PMBINA ARE 
AN EXTENSION OF THE STANDARD MONITOR AND OF PM 
RESPECTIVELY. IN CASE OF SINGLE STEPPING THROUGH 

AN USER PROGRAM WITH DECIMAL ARITHMETIC, THERE 

WILL BE A TEMPORARY SWTCH BACK ON BINARY ARITHMETIC 
PROVIDED THE NMI JUMP VECTOR HAS BEEN SPECIFIED 
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0621: 
0622: 
0623: 


0624: 
0625: 
0626: 
0627: 


17D6 
17D7 
17 DA 
17DB 


0628: 
0629: 
0630: 
0631: 
0632: 
0633: 
0634: 
0635: 


ID= 


-T 
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SYMBOL 
ADCEND 
ASSEMB 
BCKB 
BINAR 
BYTES 
CENDL 
CRLF 
DNE 
ENDADH 
FULL 
INPAR 
LABELS 
LBLSTG 
LST 
MESSA 
NMIL 
PARBH 
POINTH 
PRINS 
RDB 
RECEND 
SAVE 
SEACND 
SP 
TABLEL 
TXTEND 
WRONG 


D8 
4C 00 1C 
D8 
HC CF 14 


TABLE 30 
1EDC 
151 
15E9 
17D6 
OOF6 
OOE8 
11E8 
15B5 
OOE5 
1570 
1387 
OOEE 
179P 
153F 
17 1E 
1A7A 
1A66 
OOFB 
16EB 
16D5 
1EEA 
1C00 
1745 
1716 
OOEC 
172F 
1644 


ON 17F6 OR 17FA RESPECTIVELY. 


BINAR CLD 
JMP 
PMBINA CLD 
JMP 


BRUBEKK END OF 


VICINUS ELABORABAT PROGRAMMAM XXV VI MCMLXXXI 


SAVE 
STEP 


THE PME PROGRAM 


BINARY ARITHMETIC 
SAVE INPUT PROPER 
BINARY ARITHMETIC 
SAVE INPUT PROPER 


neue R Kr 


VIR NOCTIS IMPOSIT PROGRMMAM IN MACHINAM 


00 3276 

AGAIN 15AD 
ASSEND 1627 
BEGADH OOE3 
BRKTH 1A7D 
BYTIN 168E 
CHECK 16D6 
CURADH OOE7 
DONE 1547 
ENDADL OOEU 
ILLKEY 156C 
INPUT 162D 
LABLST 1768 
LENACC 1E60 
MA 1721 
NEXT 1EF8 
OPLEN 1E5C 
PARBL 1465 
POINTL OOFA 
PRSP 11F3 
READ 16AE 
RESIN 1268 
SCAN 1580 
SEARCH 1574 
STEP 14CF 
TEMPX OOFD 
TXT 1730 


ASHETT 
BACK 
BEGADL 
BRKTL 
BYT 
CHKEND 
CURADL 
EDITC 
FILLWS 
INCTAB 
INSERT 
LBLSTA 
LINES 
MEM 
NIBBLE 
PARAH 
PBDD 
PRBYT 
PRT 
READIN 
RESTTY 
SCNDA 
SEMIW 
SXTEEN 
TOFEND 
UP 


14 1E ASMBLR 1616 
1558 BCKA 15D0 
O0E2 BEGIN 1ED3 
1A7C BRK 1513 
1691 CENDH OOE9 
16EA COUNT OOF7 
OOE6 DECURA 1672 
14EO EDITW 151D 
1E87 FOUND 15Â3 
1680 INH OOF9 
1559 IOCORR 14D8 
176A LBLSTB 176F 
15FE LIST 1538 
1562 MESS 1549 
OOFE NMIH 1A7B 
1461 PARAL 1463 
1483 PMBINA 17DA 
128F PRCHA 133À 
1703 RDA 16D3 
1649 RECCHA 12A4E 
14BC RETURN 1648 
17B5 SCNDB 17C6 
1647 SKIP 155E 
15F6 TABLEH OOED 
15F3 TOF 15EC 
1E83 WARM 1525 


Aanhangsel 2 


Hex dump van het systeemprogramma PME 


De aanvullende software van ESS 507N (voormalige PM-EPROM, nu de 
PM/PME-EPROM) omvat de adressen $14F8...$17FF. Het leeuwedeel 
daarvan, namelijk de adressen $14F8 ...$17F5, staat in het teken van 
PME. De adressen $17F6...$17FD horen bij de twee routines van 
Aanhangsel 4. 

N.B. Voor de eerste helft van de hex dump van de PM/PME-EPROM: 
zie Aanhangsel 5 op de pagina's 206 en 207 van boek 3.Regel 14F9 is 
in beide gevallen weergegeven, zij het dat in Aanhangsel 5 van boek 3 
uitsluitend de eerste-drte PM-bytes zijn weergegeven. 

NEN 


8 1 2 3 4 5 6 ek 9 A B C DD E PF 
14F9: F9 4C A2 13 FF FF FF FF A9 IE 8D 83 IA 4C 51 IF 
1509: 29 68 12 A9 OU 29 3E 17 29 87 13 34 F3 AD 63 IA 
1510: 85 E2 18 69 91 85 E8 AD 64 IA 85 E3 69 99 85 E9 
1520: AD 65 IA 85 E4 AD 66 ÌA 85 E5 29 D3 1E A9 77 Ag 
1530: 99 91 E6 A9 3D 8D 7C IA A99 15 8D 7D ÌlA Ag 24 29 
1540: 3E 17 A2 FF 9A 20 JB 17 20 AE 12 C9 4B DO 99 29 
1559: 83 IE 20 EA IE 4C 45 15 C9 4C DO 12 20 D3 IE 29 
1569: OB 17 29 F8 1E 39 F8 Ag IF 29 3E 17 F9 D7 C9 20 
1579: DO 97 29 F8 1E 39 CE 19 EE C9 49 Dg 17 20 C9 16 
1580: 39 GA 29 F6 16 99 J9 29 47 IE FO BI AZ JE DI DOI 
1599: AG 1A DO D5 C9 53 DI 49 29 CI 16 39 EF 29 D3 IE 
15A0: A5 FB 29 60 1E Ad 99 Bl E6 C5 FB DJ 20 C6 F6 F9 
15B9: 12 C8 Bl E6 C5 FA D 15 C6 F6 FG 97 C8 Bl E6 C5 
15COg: F9 DO JA 29 GB 17 29 AE 12 C9 59 DO 98 20 5C IE 
15D9: 29 F8 1E 39 CB 4C 67 15 C9 5A DO 39 A5 E2 85 EC 
15E9: A5 E3 85 ED C5 E7 D9 08 A5 E2 C5 E6 DS 92 FO 19 
15FO: AG JO Bì EC 20 69 IE 20 Ag 16 A5 E6 C5 EC D9 F9 
1699: A5 E7 C5 ED D9 EA 29 92 16 4C 45 15 C9 54 DY 6 
1619: 29 D3 1E 4C 45 15 C9 50 D9 IC A9 JF 85 F7 29 5C 
1629: IE 20 F8 IE C6 F7 FO EB Ag 09 Bl E6 C9 77 FJ E3 
1639: 20 OB 17 4C 1E 16 C9 58 DO 13 A9 47 8D JA lA A9 
1640: 16 8D 7B ÌA 4C F8 14 29 BC 14 4C 88 17 29 Bl 16 
1658: 39 12 29 CE 16 38 JD 29 5C IE 29 F8 1E A5 FD 85 
1669: F6 4C 82 15 4C 8C 15 20 68 12 Ag 09 20 3E 17 29 
1679: 87 13 39 F3 AD 63 IA 85 E2 AD 64 lA 85 E3 AD 65 
1689: IA 85 E4 85 E8 AD 66 lA 85 E5 85 E9 28 D3 IE 4C 
1698: 33 15 38 A5 E6 E5 F6 85 E6 A5 E7 E99 49 85 E7 60 


16AG: 
16B 9: 
16CO: 
16D9: 
16E: 
i6F 9: 
1799: 
1719: 
17209: 
1730: 
1749: 
1758: 
1769: 
1779: 
1789: 
1790: 
17Ag: 
1789: 
17CG: 
17D9: 
17E9: 
17FG: 
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g 


18 
12 
IE 
29 
16 
g4 
A5 
IE 
EE 
85 
11 
42 
4C 
4F 
42 
FD 
Ag 
8F 
D3 
39 
29 
gg 


Ì 


A5 
29 
14 
68 
39 
85 


A6 
Ag 
EE 
B9 
45 
45 
4E 
20 
Ag 
34 
12 
lE 
F3 
F8 
85 


2 


EC 
1E 
30 
LE 
12 


F9 


F6 
gg 
C8 
5 
47 
47 
45 
24 
2E 
29 
29 
4C 
20 
lE 
E9 


3 


65 
14 
g4 


85 
A2 


A5 
29 
CA 
17 
41 
41 
93 
93 
29 
41 
F3 
3D 
D3 
4C 
4C 


4 


F6 
34 
g5 


FA 
gg 
99 
E 7 
F3 
Dg 
C9 
44 
4C 
5 
3À 
41 
17 
11 
15 
ÌE 


33 


8 


ED 
QA 
67 
F7 
ZA 
iE 
1E 
A5 
29 
Ha 
20 
44 
59 
44 
Ag 
Bl 
EC 
Fg 
Ag 
E6 
E6 
gj 


9 A B C D E 


69 
ZA 
29 
Fg 
20 
38 
38 
E6 
8F 
C6 
34 
41 
93 
49 
FF 
EC 
20 
gs 
gg 
C9 
69 
1C 


85 
FE 
16 
29 
kl 
E4 
20 
8F 
38 
Dg 
C8 
3A 
55 
AF 
E8 
8F 
12 
Dg 
3E 
F9 
85 
4C 


ED 
20 
39 
F3 
20 
E9 
E8 
12 
A5 
F9 
AC 
20 
4C 
52 
iÌ 
12 
88 
D2 
17 
go 
E8 
CE 


69 
AE 
27 
ìl 
AE 
92 
il 
A9 
EE 
67 
41 
g3 
4C 
g3 
A2 
88 
Bl 


20 
12 
85 
29 
16 
E5 
20 
gr 
E9 
29 
17 
49 
93 
4C 
g4 
84 
EC 
CB 
87 
60 
E7 
77 


F 


AE 
29 
FB 
AE 
39 
E8 
5C 
85 
g3 
E8 
60 
4C 
44 
41 
84 
FD 
20 
20 
13 
1E 
69 
77 


Aanhangsel 3 


De listing van het systeemprogramma TM 
en 
de listing van het systeemprogramma PM 


Elke boekpagina bevat 69 assembler-regels. Na het algemene gedeelte 
(deklaraties) komen achtereenvolgens aan de orde: 


Het hoofdprogramma TM 

De subroutines van TM 

De "super-subroutine” DUMP/DUMPT 

De subroutines van DUMP/DUMPT 

De “‘super-subroutine’’ RDTAPE 

De subroutines van RDT APE 

Het hoofdprogramma PM 

De subroutines van PM 

De opzoektabel MESS van PM 

De STEP-voorroutine van PM 

De subroutine IPBRES van PM 

En tot slot een “symbol table’”, met een overzicht van alle labels en 
niet-anonieme geheugenplaatsen. | 
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0001: 
0002: 
0003: 
OOOH: 
0005: 
0006: 
0007: 
0008: 
0009: 
0010: 
0011: 
Gole: 
0013: 
Oort: 
0015: 
0016: 
0017: 
0018: 
0019: 
0020: 
0021: 
0022: 
0023: 
oek: 
0025: 
0026: 
0027: 
0028: 
0029: 
0030: 
0031: 
0032: 
0033: 
0034: 
0035: 
0036: 
0037: 
0038: 
0039: 
0040: 
OOU1: 
oote: 
0043: 
OO84: 
0045: 
0046: 
OOu7: 
oo48: 
Oog: 
0050: 
0051: 
0052: 
0053: 
0054: 
0055: 
0056: 
0057: 
0058: 
0059: 
0060: 
0061: 
0062: 
0063: 
006%: 
0065: 
0066: 
0067: 
0068: 
0069: 


0800 


0800 
0800 
0800 
0800 


0800 
0800 
0800 
0800 


0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
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ORG $0800 SOFTWARE OF JUNIOR COMPUTER 3,4 


SOURCE LISTING OF THE TAPE/PRINTER MONITOR 


WRITTEN BY A. NACHTMANN 


DATE: 17 DEC. 1980 


VENEN WRUNRUNRNNNANRNNNNKKANEN KENNER EN KRK 


KR DEFINITIONS OF DUMPT & RDTAPE ##& 
HERNURKKVNRNNBNKENEN KNK KEN KENNEN NN HK 


DUMPT STORES A PROGRAM ON TAPE 

1) STORE A PROGRAM ON TAPE 

2) ID IS THE IDENTITY NUMBER 

3) SA IS THE START ADDRESS 

4) EA IS THE END ADDRESS + 1 

5) ID = 00 & ID = FF SHOULD NOT BE USED 


RDTAPE READS A PROGRAM FROM TAPE 

1) READ A PROGRAM FROM TAPE WITH A CERTAIN ID 
2) DISCARD DATA IN MEMORY BEGINNING AT SA 

3) ID = 00 & ID = FF ARE SPECIAL IDS 


THE DATA FORMAT ON TAPE IS ASCII: 

255SYNC>RLHIDS>SALSD SAHS>DATAC>/ CD CHKL<>CHKH<>EOTSDEOT 
I/O DEFINITION 

PAD „ $1A80 PORT A DATA REGISTER 

PADD * $1A81 PORT A DATA DIRECTION 

PBD * $1A82 PORT B DATA REGISTER 

PBBD * $1A83 PORT B DATA DERECTION 

TIMER REGISTERS 


CNTA $1AFH CLKIT, DISABLE TIMER IRQ 
CNTC $1AF6 CLK6UT, DISABLE TIMER IRQ 


%* 

* 
RDFLAG %# $1AD5 READ FLAG REGISTER, B7 IS TIMER FLAG 
RDTDIS * $1ADÌ READ CONTENTS OF TIMER CELL, IRQ DISABL 


TEMPORARY DATA BUFFERS 


SY 5 $1A69 SYN COUNTER 

BYTE $1A6GA BYTE FROM TAPE 

CHAR * $1A6B CHARACTER FROM TAPE 

HIGHER % $1A6C 3600 HZ HALF PERIODE DELAY 
LOWER # $1A6D 2400 HZ HALF PERIODE DELAY 
CHKL « $1A6GE CHECK SUM LOW 

CHKH “ $1A6F CHECK SUM HIGH 

SAL „ $1A70 START ADDRESS LOW 

SAH „ $1A71 START ADDRESS HIGH 

EAL ” $1A72 END ADDRESS LOW + 1 

EAH * $1A73 END ADDRESS HIGH 

SYNCNT *% $1A7Ù 

BITS „ $1A75 AMOUNT OF BITS 

FIRST & $1A76 HALF PERIODE AMOUNT OF 3600 HZ 
SECOND &# $1A77 HALF PERIODE AMOUNT OF 2400 HZ 
GANG “ $1A78 TEMP OF PBD-BITS 


0070: 
6071: 
0072: 
0073: 
0074: 
0075: 
0076: 
OO 
0078: 
0079: 
0080: 
0081: 
0082: 
0083: 
0084: 
0085: 
0086: 
0087: 
0088: 
0089: 
0090: 
0091: 
0092: 
0093: 
oog: 
0095: 
0096: 
0097 : 
0098: 
0099: 
0100: 
0101: 
0102: 
0 T03: 
O104: 
0105 
0106: 
0107: 
0108: 
0109: 
6110: 
OT 
0112: 
0113: 
011: 
0115: 
0116: 
01172 
0118: 
0119: 
0120: 
0121: 
onee: 
0123: 
O1e2k: 
0125: 
0126: 
OTT: 
0128: 
0129: 
01307 
01317: 
01327 
04337 
0134: 
0135: 
0136: 
0137: 
0138: 


0800 
0800 


0800 
0800 
0800 
0800 
0800 
0800 
0800 


0800 
0800 


0800 
0800 


0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 
0800 


0800 
0800 
0800 
0800 
0800 
0800 
0800 


ID * $1A79 ID OF THE DUMPT PROGRAM 
NMI * $1AT7TA NMI VECTOR 


NRNRAKENRKKENNNNRRK HAN HKKKK KKH N HHN H NH EH 


tE DEFINITIONS OF THE TTY MONITOR ### 
MENNUNUKNNNNENN EERE N KHN N KEUKEN HEN NE LN HN 


I/O DEFINITION: SEE DUMPT & RDTAPE 


CPU REGISTERS 


PCL * $OOEF PROGRAM COUNTER 
PCH * $OOFO 

PREG “ $00OF1 STATUS REGISTER 
SPUSER # $00OF2 USER STACK POINTER 
ACC * $0O0OF3 ACCUMULATOR 

YREG * $OOFU INDEX Y 

XREG # $OOFS5 INDEX X 


INPUT BUFFERS 

INL “ $0O0OF8 LOWER BYTE 
INH “ $OOFG UPPER BYTE 
ADDRESS POINTER 

POINTL # $OOFA 

POINTH & $OOFB 


TEMPORARAY DATA BUFFERS 


TEMP Li $OOFC 

TEMPX * $OOFD 

STPBIT *& $1A59 NUMBER OF STOP BITS + 1 
CNTL * $1A5A BIT TIME BUFFER 

CNTH * $1A5B 

CNTHL *% $1A5C HALF BIT TIME BUFFER 
CNTHH *&# $1ASD 

TIML * $1A5E COUNT DOWN BUFFER 
TIMH * $1A5F 

TEMPA % $1A60 TEMPS 

TEMPB *% $1A61 

CHA % $1A62 CHARACTER BUFFER 
PARAL %# $1A63 PARAMETER BUFFERS 
PARAH % $1A6U 

PARBL & $1A65 

PARBH *%* $1A66 

PRTEMP & $1A467 TTY BUFFER 

BRKT * $1A7C BREAK TEST VECTOR 


BNNNUNHRNENRHHRNKKENNNENRENNNNKN KK KKK HH 


#4 BUFFERS & EXTERNAL ADDRESSES ##% 
HRNNNKNNNNNNKEN KN KNN K NEN KN KUN KHK HH 


DISCNT # $1468 DISPLAY COUNTER 
COLDST #% $1CB5 EDITOR COLD START 
WARMST & $1CCA EDITOR WARM START 
BEGIN # $1ED3 EDITOR SUBROUTINE 
RESET # $1CID RESET OF VERSION D 
GETKEY *# $1DF9 COMPUTE THE KEY VALUE 
LDAINH % $1DA7 PART OF SCAND/SCANDS 
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0139: 
0140: 
0141: 
o142: 
0183: 
Ott: 
0145: 
0146: 
0147: 
0148: 
0149: 
0150: 
0:15:14 
0152: 
01538 
0154: 
0155: 
0156: 
0157: 
0158: 
0159: 
0160: 
0161: 
0162: 
0163: 
0164: 
0165: 
0166: 
0167: 
0168: 
0169: 
O0 
0171: 
0172: 
0173: 
0174: 
0175: 
0176: 
0177: 
0178: 
0179: 
0180: 
0181: 
0182: 
0183: 
0184: 
0185: 
0186: 
0187: 
0188: 
0189: 
0190: 
0191: 
0192: 
0193: 
0194: 
0195: 
0196: 
0197: 
0198: 
0199: 
0200: 
0201: 
0202: 
0203: 
o20l: 
0205: 
0206: 
0207: 
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0800 
0800 
0800 
0800 
0800 


0800 


0800 
0803 
0805 
0808 
080A 
080D 


0810 
0812 
0815 
0818 
081B 
081E 


0821 
0824 
0826 
0829 
082B 


082E 
0831 


0833 
0836 
0838 
083B 
083D 


0840 
0812 
O8 
0847 
0849 
o8uC 


O84E 
O8uF 


0852 


20 
A5 
8D 
A5 
8D 
HC 


A2 
8E 
BE 
8E 
BE 
BE 


BE 
Ag 
8D 
A9 
8D 


20 
DO 


20 
FO 
20 
FO 
20 


Cg 
DO 
20 
A2 
EC 
FO 


E8 
ie 


Cg 


12 
FA 
70 
FB 
LJ 
4E 


00 
79 
70 
71 
12 
73 


68 
06 
82 
1E 
83 


36 
FB 


36 
FB 
36 
F6 
F9 
1 
OE 
02 
FF 


Be 


21 


OC 


1A 
1A 
08 


1A 
TA 
1A 
1À 
1A 
1A 
1A 
1À 


09 


09 
09 


1D 


OB 


TA 


08 


BEGADL 
BEGADH 
ENDADL 
ENDADH 
CENDL 
CENDH 


* $00E2 BEGIN ADDRESS POINTER 

* $0O0E3 

* $0O0EU END ADDRESS POINTER 

« $00E5 

* _$00E8 CURRENT END ADDRESS POINTER 
* $0OEG 


HNNNK NR KK HNK N NH HK MMA HK HH 


“NR TAPE MANAGEMENT ##% 
ENNKRRURRNRKENRKNNRUNN HAK HK 


>PC 


>AD 


>DÁ 
>+ 


>GO 


GETA 


TPINIT 


EPL 


TPTXT 


TTXT 


GET 


GETB 


SAVE 


KEY: 


KEY: 


KEY: 


KEY: 


KEY : 


READ A DATA BLOCK WITH ID=01...FE FROM TAPE 
1) IF ID = 00, NO SA MAY BE ENTERED 
2) IF ID = FF, SAH & SAL SHOULD BE ENTERED 
SAVE A DATA BLOCK FROM SA TO EA-1 ON TAPE 
1) ENTER ID = 01...FE 
2) ENTER SAH & SAL 
3) ENTER EAH & EAL + 1 
1) EDITOR COLD START ENTRY 
2) FILE IS DEFINED BY BEGH,BEGL & ENDH,ENDL 
DISPLAY ID-SAH-SAL-EAH-EAL-BEGH-BEGL-ENDH- 
ENDL-ID-SAH... 
SAVE AN EDITOR FILE BETWEEN BEGAD AND CEND 
ON TAPE; THEN JUMP TO WARM START ENTRY OF 
THE EDITOR AND DISPLAY THE FIRST INSTRUCTION 
JSR ADJPNT DECREMENT FILE POINTER 
LDAZ POINTL POINT := SA 
STA SAL 
LDAZ POINTH 
STA SAH 
JMP GETB 
LDXIM $00 
STX ID RESET ALL TAPE PARAMETERS 
STX SAL 
STX SAH 
STX EAL 
STX _EAH 
STX DISCNT RESET DISPLAY COUNTER 
LDAIM $06 
STA PBD DISPLAY OFF 
LDAIM $1E 
STA PBDD 
JSR TAPDIS DISPLAY TAPE PARAMETERS 
BNE TPTXT KEY RELEASED? 
JSR TAPDIS 
BEQ TTXT ANY KEY DEPRESSED? 
JSR TAPDIS DEBOUNCE KEY 
BEQ TELT KEY STILL DEPRESSED? 
JSR GETKEY RETURN WITH KEY IN ACCU 
CMPIM Ì14 PC KEY? 
BNE SAVE 
JSR RDTAPE READ DATA FROM TAPE 
LDXIM $FF 
CPX ID CHECK, IF ID = 
BEQ GETA IF YES, ADJUST FILE POINTER 
INX RESET DISCNT 
JMP TPI SHOW ‘ID XX’ 
CMPIM $10 AD KEY? 


0208: 
0209: 
Oe FO 
et 1: 
0212: 
0213: 
O214: 
0215: 
0216: 
Ges: 
0218: 
oe219: 
0220: 
0221: 
022: 
0223: 
22: 
0225: 
0226: 
0227: 
0228: 
oe2eĲ: 
0230: 
0231: 
O2: 
0233: 
023: 
0235: 
0236: 
0237: 
0238: 
0239: 
o240: 
o2ki: 
oeke: 
oe2eu3: 
oet: 
oe2ek5: 
0246: 
o2u7: 
o2u8: 
oe2ug: 
0250: 
G251s 
0252: 
0253: 
oe25l: 
0255: 
0256: 
0251: 
0258: 
0259: 
0260: 
0261: 
0262: 
0263: 
Oe264: 
0265: 
0266: 
0267: 
0268: 
0269: 
0270: 
0271: 
0272: 
0273: 
0274: 
Ge7s 
0276: 


0854 
0856 


0859 
085B 


085E 
0860 
0862 
0865 
0867 
086 A 
086C 
086E 
0871 


0873 
0875 
0877 
0879 
087C 
087E 
0881 
0883 
0886 
0888 


088B 
088E 
089 1 
0893 
0896 
0898 
0899 


089C 
08GE 
08A0 


08A3 
08A5 
08A7 
08A9 
O8AB 
0BAD 
O8AF 
08B 1 
08B4 
08B6 
0O8B9 


08BC 
08BD 
08C0 
08C2 
08C5 


08C8 
08C9 
08CC 
08CE 
08D1 


08D4 
08D5 
08D8 
08DA 
08DD 


08EO 


68 
06 
71 
2E 


68 
06 


2E 


68 
06 
73 
2E 


09 
08 


1À 


1ÀA 


TA 
TA 
1A 


09 
1E 


1A 


1C 


1À 


1À 
08 


TA 
1Â 
08 
1A 
TA 
08 
1À 


1A 
08 


PLUS 


FILES 


DAT 


SHIFT 


STSAH 


STSAL 


STEAH 


STEAL 


BNE- 
JSR ° 


_LDXIM 


JMP 


CMPIM 
BNE 


INC 


LDYIM 


CPY 
BNE 
LDYIM 
STY 
BEQ « 


CMPIM 
BNE 
LDAZ 
STA 
LDAZ 
STA 
LDAZ 
STA 
LDAZ 
STA 


JSR 
JSR 
LDAIM 
STA 


LDXIM 
TXS 
JMP 


CMPIM 
BNE 


JMP 


ASLZ 
ASLZ 
ASLZ 
ASLZ 
ORAZ 
STAZ 
LDY IM 
CPY 
BNE 
STA 
JMP 


INY 
CPY 
BNE 
STA 
JMP 


INY 
CPY 
BNE 
STA 
JMP 


INY 
CPY 


BNE 
STA 


JMP 


INY 


PLUS 


„DUMP 


$00 
EPL 


$12 
FILES 
DISCNT 
$09 
DISCNT 
TPTXT 
$00 
DISCNT 
TPTXT 


$13 
DAT 
BEGADL 
SAL 
BEGADH 
SAR 
CENDL 
EAL 
CENDH 
EAH 


DUMP 
BEGIN 
$1E 
PBDD 
$FF 


WARMST 


$11 
SHIFT 


COLDST 


INH 

INH 

INH 
INH 

INH 

INH 
$00 
DISCNT 
STSAH 
ID 


TPTXT 


DISCNT 
STSAL 
SAH 
EPEAT 


DISCNT 
STEAH 
SAL 
TPTXT 


DISCNT 
STEAL 
EAH 
TPTAT 


WRITE DATA ON TAPE 


SHOW “ID XX’ 


+ KEY? 
SET UP PARAMETER COUNTER 
LIMIT COUNT 


RESET PARAMETER COUNTER 


GO KEY? 


BEGAD := SA 


En 


CEND :z E 


WRITE DATA = FILE ON TAPE 
SHOW THE FIRST INSTRUKTION 
DIFINE 1/0 

RESET STACK 

RETURN TO EDITOR 

DA KEY? 

IT WAS A DATA KEY 

EDITOR COLD START ENTRY 


SHIFT KEY INTO DISPLAY BUFFER 


RESET PARAMETER COUNTER 
ID TO DISPLAY? 


SAVE ID 


SAH TO DISPLAY? 


SAVE SAH 


SAL TO DISPLAY? 
SAVE SAL 


EAH TO DISPLAY? 
SAVE EAH 
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0277: 
0278: 
0279: 
0280: 
0281: 
0282: 
0283: 
0284: 
0285: 
0286: 
0287: 
0288: 
0289: 
0290: 
0291: 
0292: 
0293: 
oe29k: 
0295: 
0296: 
0297: 
0298: 
0299: 
0300: 
0301: 
0302: 
0303: 
0304: 
0305: 
0306: 
0307: 
0308: 
0309: 
0310: 
0311: 
0312: 
0313: 
0314: 
6315: 
0316: 
0317: 
0318: 
0319: 
0320: 
0321: 
0322: 
0323: 
0324: 
0325: 
0326: 
0327: 
0328: 
0329: 
0330: 
0331: 
0332: 
0333: 
0334: 
0335: 
0336: 
0337: 
0338: 
0339: 
0340: 
0341: 
0342: 
0343: 
03u: 
0345: 
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O8E1 
O8EN 
08E6 
O8E9 


OBEC 
OBED 
08FO 
o8F2 
o8F 4 


08F7 
08F8 
O8FB 
O8FD 
O8FF 


0902 
0903 
0906 
0908 
O9OA 


090D 
O90E 
0911 
0913 
0915 


0918 


09 1B 
O9TE 
0ge1 
oge2h 
0925 


0927 
0928 
og2A 
0g2B 
092C 
og2D 
O92E 
09 30 
0932 
0935 


0936 
0938 


093B 
09 3D 
09 3F 
oge 
og ul 
O9 UT 


0949 
O9 UC 


O9kD 
O9LE 
0951 
0953 
0956 


CC 
DO 
8D 
UC 


C8 
CC 
DO 
85 
uC 


C8 
CC 
DO 
85 
4C 


C8 
CC 
DO 
85 
ie 


C8 
CC 
DO 
85 
4C 


UC 


B9 
8D 
BE 
98 
AO 


88 
DO 
A8 
E8 
E8 
C8 
EO 
DO 
20 
60 


Ag 
8D 


A2 
ÂO 
CC 
DO 
AD 
85 


20 
60 


C8 
CC 
DO 
AD 
85 


68 
06 


2E 


68 
05 
E3 
2E 


68 
05 
E2 
2E 


68 
05 
E5 
2E 


68 
05 
El 
2E 


10 


BB 
80 
82 


Te 


FD 


10 
E9 
AT 


68 
09 
71 
F9 


TA 


1A 
08 


08 


TA 


08 


1A 


08 


08 


08 


09 
1À 
1À 


1D 


1Â 
1A 


09 


1À 
14 


STBEGH 


STBEGL 


STENDH 


STENDL 


TPVEC 


CPY 
BNE 
STA 
JMP 


INY 
CPY 
BNE 
STAZ 
JMP 


INY 
CPY 
BNE 


STAZ 
JMP 


INY 
CPY 
BNE 
STAZ 
JMP 


INY 
CPY 
BNE 
STAZ 
JMP 


JMP 


SUBROUTINES 


TDISP 


DELY 


TAPDIS 


SID 


COMPNT 


SSAH 


LDAY 
STA 
STX 
TYA 
LDYIM 


DEY 
BNE 
TAY 
INX 
INX 
INY 
CPXIM 
BNE 
JSR 
RTS 


LDAIM 
STA 


LDXIM 
LDYIM 
CPY 
BNE 
LDA 
STAZ 


JSR 
RTS 


INY 
CPY 
BNE 
LDA 
STAZ 


DISCNT 
STBEGH 
EAL 
TPTXT 


DISCNT 
STBEGL 


BEGADH 
TPTXT 


DISCNT 
STENDH 


BEGADL 
TPTXT 


DISCNT 
STENDL 
ENDADH 
TPTXT 


DISCNT 
TPVEC 
ENDADL 
TPTXT 


TPINIT 


TLOOK 
PAD 
PBD 


$TF 


DEL Y 


$10 
TDISP 
LDAINH 


$7F 
PADD 


$08 
$00 
DISCNT 
SSAH 
ID 

INH 


TDISP 


DISCNT 
SSAL 
SAH 
INH 


EAL TO DISPLAY? 
SAVE EAL 


BEGH TO DISPLAY? 
SAVE BEGADH 


BEGADL TO DISPLAY? 


SAVE BEGADL 


ENDADH TO DISPLAY? 


SAVE ENDADH 


ENDADL TO DISPLAY? 
ERROR EXIT 
SAVE ENDADL 


OF ‘TAPE MANAGEMENT” 


TEXT LOOKUP 
OUTPUT TEXT PATTERN 


DISPLAY ENABLE 
SAVE INDEX Y 


DELAY 


RESTORE INDEX Y 
SET UP FOR NEXT DISPLAY 


ADJUST TEXT POINTER 
4 DISPLAYS SCANNED? 


DISPLAY DATA BUFFER INH 


I/O DEFINITION 
INIT DISPLAY SWITCH 
ID TO DISPLAY? 


ID TO DISPLAY 


SHOW ANY PARAMETER 


SAH TO DISPLAY? 
SAH TO DISPLAY 


0346: 
0347: 
0348: 
0349: 
0350: 
0351: 
0352: 
0353: 
0354: 
0355: 
0356: 
0357: 
0358: 
0359: 
0360: 
0361: 
0362: 
0363: 
0364: 
0365: 
0366: 
0367: 
0368: 
0369: 
0370: 
0371: 
0372: 
0373: 
0374: 
0375: 
0376: 
0377: 
0378: 
0379: 
0380: 
0381: 
0382: 
0383: 
0384: 
0385: 
0386: 
0387: 
0388: 
0389: 
0390: 
0391: 
0392: 
0393: 
0394: 
0395: 
0396: 
0397: 
0398: 
0399: 
o400: 
o401: 
okho2: 
0403: 
OUOk: 
o405: 
o406: 
o407: 
o408: 
oh09: 
o410: 
0811: 
oh12: 
0413: 
ok: 


0958 
095A 


095C 
095D 
0960 
0962 
0965 
0967 
0969 


096B 
096C 


O96F - 


0971 
0974 
0976 
0978 


O97A 
097B 
O97E 
0980 
0983 
0985 
0987 


0989 
098A 
098D 
098F 
0991 
0993 
0995 


0997 
0998 
O99B 
099D 
ogg 
O9 A1 
O9A3 


09A5 
09 A6 
OG Ag 
O9AB 
OGQAD 
OG AF 
O9B 1 


09B3 
09B5 
O9B7 
O9B9 


09BB 
O9BC 
O9BD 
O9BE 


O9BF 
09CO 
091 
092 


66 
21 
7F 
7F 


Dé 
08 
09 
LE 


O4 
ED 


68 
09 
70 
F9 
08 
DE 


68 
09 


13 
F9 


oc 
CF 


68 
09 
Tè 
F9 
10 
CO 


68 
08 
E3 
F9 
1 
B2 


68 
08 
E2 


18 
Ab 


68 
08 
E5 
F9 
1C 
96 


EN 
F9 
20 
BE 


1À 


1À 


1A 


1A 


TA 


1A 


TA 


1À 


TA 


SSAL 


SEAH 


SEAL. 


SBEGH 


SBEGL 


SENDH 


SENDL 


LDYIM 
BNE 


INY 
CPY 
BNE 
LDA 
STAZ 
LDYIM 
BNE 


INY 
CPT 
BNE 
LDA 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDA 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDAZ 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDAZ 
STAZ 
LDYIM 
BNE 


INY 
CPY 
BNE 
LDAZ 
STAZ 
LDYIM 
BNE 


LDAZ 
STAZ 
LDYIM 
BNE 


$o4 
COMPNT 


DISCNT 
SEAH 
SAL 
INH 
$08 
COMPNT 


DISCNT 
SEAL 
EAH 
INH 
$0C 
COMPNT 


DISCNT 
SBEGH 
EAL 
INH 
$10 
COMPNT 


DISCNT 
SBEGL 
BEGADH 
INH 
814 
COMPNT 


DISCNT 
SENDH 


BEGADL 
INH 


$18 
COMPNT 


DISCNT 
SENDL 
ENDADH 
INH 
$1C 
COMPNT 


ENDADL 
INH 
$20 
COMPNT 


LOOKUP POINTER 
SHOW SAH 

SAL TO DISPLAY? 
SAL TO DISPLAY 


LOOKUP POINTER 
SHOW SAL 


EAH TO DISPLAY? 


EAH TO DISPLAY 


LOOKUP POINTER 
SHOW EAH 


LOOKUP POINTER 
SHOW EAL 


7 SEGMENT TEXT LOOKUP TABLE 


TLOOK 


u 


Hint 


$66 
$21 
$7F 
$7F 


$52 
$08 
$09 
$7F 


ID PATTERN 


SAH PATTERN 


199 


o415: 
o416: 
oOn17: 
ou 18: 
Ok 19: 
ok20: 
o421: 
ou22: 
0423: 
oek: 
ot25: 
oh26: 
okh27: 
0428: 
Ook29: 
O430; 
o431: 
o432: 
o433: 
o434: 
0435: 
04u36: 
0U37: 
0438: 
o439: 
ou40: 
OUT: 
ou42: 
ou43: 
Obi: 
OUU5: 
OU46: 
OUb7: 
O44B8: 
ob ug: 
ou50: 
O45 1: 
ou5e2: 
O5 3: 
OB54: 
oh55: 
o456: 
oU57: 
ou58: 
ON5g: 
O460: 
O461: 
o62: 
o463: 
O6H: 
O465: 
0466: 
o467: 
Oo468: 
o469: 
OTO: 
O471: 
O472: 
o473: 
OHT: 
0475: 
OU76: 
O477: 
0478: 
Ou79: 
o480: 
On81: 
0482: 
ou83: 
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09C3 
O9Ch 
09C5 
09C6 


O9CT 
09C8 
09Cg 
O9CA 


O9CB 
09E 
O9CD 
O9CE 


O9CF 
O9D0 
O9D1 
ogDe 


O9D3 
OD 
O9D5 
O9D6 


O9D7 
o9D8 
O9D9 
O9DA 


O9DB 
O9DC 
O9DD 
O9DE 


O9DF 
OGE] 
OGEN 
O9E6 


OGE9 


OGEB 
OGEE 
O9FO 


O9P 3 
O9F5 
O9F 7 
O9FA 
O9FD 
OAOO 
oAOe2 
OAOH 
OAO7 
OAOA 
OAOD 
OA 10 
OA13 
OA15 
OA 18 
OA TA 
OA1C 


OA1F 
OA21 
OA24 


52 
08 
47 
7F 


06 
08 
09 
TF 


06 
08 
WT 
7E 


03 
06 
42 
09 


03 


12 
17 


06 
2B 
21 
09 


06 
2B 
| 
17 


A9 
8D 
A9 
8D 
Ag 
8D 
A9 
8D 


Ag 
A2 
8D 


8E 
Ag 
A2 
8D 
8E 
8D 
8D 
AD 
85 
AD 
85 
A2 
8E 


A9 
20 
CE 


7D 
6C 
C3 
6D 
03 
76 
02 
1 


17 
FF 
82 
78 
83 
00 


80 
81 
6E 
6F 
70 
FÀA 
71 
FB 
EF 
Th 


16 
A3 


74 


1Â 
1À 
1À 


1A 


1Â 
TA 
1A 


TA 
TA 
1À 
TA 
1Â 


TA 


1À 


1A 


Hu uu 


uut mu 


Hi 


té 


Hu u 


$52 
$08 
$47 
$7F 


$06 
$08 
$09 
$7F 


_$06 


$08 


_$47 


$7F 
$03 


_$06 


$u2 
$09 


$03 
$06 
$42 


$U7 


$06 
$2B 
$21 


„ $09 


$06 
$2B 
$21 
$U7 


SAL PATTERN 


EAH PATTERN 


EAL PATTERN 


BEGH PATTERN 


BEGL PATTERN 


ENDH PATTERN 


ENDL PATTERN 


MNNNNNR NHN NHNKNKNN KHAN HNK NKK H 


#* DUMP/DUMPT IS A SUBROUTINE * 
PETRIE AAA 


DUMP LDAIM 
STA 
LDAIM 
STA 
LDAIM 
STA 
LDA IM 
STA 


DUMPT LDAIM 
LDXIM 
STA’ 
STA 
STX 
LDAIM 
LDXIM 
STA 
STX 
STA 
STA 

_ LDA 
STAZ 
LDA 
STAZ 
LDXIM 

STX 


SYNCS LDAIM 
JSR 
DEC 


$7D 
HIGHER 
$C3 
LOWER 
$03 
FIRST 
$02 
SECOND 


$U7 
SFF 
PBD 
GANG 
PBDD 
$00 
$TF 
PAD 
PADD 
CHKL 
CHKH 
SAL 
POINTL 
SÂH 
POINTH 
$FF 
SYNCNT 


hd 


OUTCH 
SYNCNT 


3600HZ HALF PERIODE DELAY 
2400 HZ HALF PERIODE DELAY 
TOGGLE 3 TIMES AT 3600 HZ 


TOGGLE 2 TIMES AT 2400 HZ 


PBD PATTERN 

PBDD PATTERN 

INPUT OFF,OUTPUT ON,STROBE DISABLED 
SAVE BITS OF PBD 

PB7...PBO IS OUTPUT 

PAD PATTERN 

PADD PATTERN 

SEGMENTS ON BUT DISABLED 

ALL LINES OUTPUT EXEPT PA7 

RESET CHECK SUM 


INITIALIZE DUMPT POINTER 


SET SYNC COUNTER 


SYN CHARACTER 
OUTPUT 255 SYN CHARACTERS 


ou8h: 
o485: 
ou86: 
O487: 
0488: 
o489: 
ok90: 
o49 1: 
onge: 
0493: 
o49 4: 
o4G5: 
O496: 
O497: 
ou98: 
ogg: 
0500: 
0501: 
0502: 
0503: 
050: 
0505: 
0506: 
0507: 
0508: 
0509: 
0510: 
0511: 
0512: 
0513: 
0514: 
0515: 
0516: 
057 
0518: 
0519: 
0520: 
0521: 
0522: 
0523: 
0524: 
0525: 
0526: 
Osse: 
0528: 
0529: 
0530: 
0531 
05e: 
0535: 
0534: 
0535: 
0536: 
0537: 
0538: 
0539: 
osho: 
Osu: 
ost2: 
0543: 
O5 ul: 
osU5: 
0546: 
0547: 
0548: 
0549: 
0550: 
0551: 
0552 


OA27 


OA29 
OA2B 
OA2E 
OA31 
OA34 
OA37 
OA3A 
OA 3D 


OA4UO 
OAN2 
OA4S5 
OAUT 
OAUG 
OAUC 


OALE 
OA50 
OA53 
OA56 
OA59 
OA5C 
OAS5F 
OA61 
OA6G4 
OA66 


OA69 


OA6GA 
OA6C 
OAGE 
OAT 1 
OAT 3 
OA75 
OATT 


OATA 
OA7B 
OA7C 
OA7F 
OA82 
OA85 
OA87 
OA8A 


OA8B 


DO 


Ag 
20 
AD 
20 
ÂD 
20 
AD 
20 


A5 
CD 
DO 
A5 
CD 
DO 


A9 
20 
AD 


AD 
20 
Ag 
20 
A9 
20 


60 


AO 
B1 
20 
E6 
DO 
E6 
UC 


A8 
18 
6D 
8D 
AD 
69 
8D 
98 


A8 


00 
FA 
TA 
FA 
CB 
FB 
40 


6E 
6E 
6F 
00 
6F 


OA 
jA 
OA 
1A 
OA 
1À 
OA 


TA 


1A 


OA 
1A 
OA 
OA 
OA 


OA 


OA 


OA 


TA 
TA 
1À 


1Á 


DATATR 


HEXDAT 


BNE 


LDA IM 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 


LDAZ 
CMP 
BNE 
LDAZ 
CMP 
BNE 


LDA IM 
JSR 
LDA 
JSR 
LDA 
JSR 
LDAIM 
JSR 
LDA IM 
JSR 


RTS 


LDYIM 
LDAIY 
JSR 
INCZ 
BNE 
INCZ 
JMP 


SYNCS 
“% 
OUTCH 
ID 
OUTBT 
SAL 
OUTBTC 


SAH 
OUTBTC 


POINTH 
EAH 
HEXDAT 
POINTL 
EAL 
HEXDAT 


, 


OUTCH 
CHKL 
OUTBT 
CHKH 
OUTBT 


OUTCH 


OUTCH 


$00 

POINTL 
OUTBTC 
POINTL 
DATATR 
POINTH 
DATATR 


OUTPUT START CHARACTER 
OUTPUT ID 


OUTPUT START ADDRESS 
AND START CHECK SUM COMPUTATION 


ENTIRE FILE TRANSMITTED? 


OUTPUT END OF DATA CHARACTER 
STOP WITH CHECK SUM COMPUTATION 


OUTPUT CHECK SUM 


EOT CHARACTER 
OUTPUT EOT CHARACTER 
EOT CHARACTER 


RETURN TO CALLER 


FETCH CURRENT DATA BYTE 
TRANSMIT CURRENT DATA BYTE 
AND COMPUT CHECK SUM 

SET UP FOR NEXT DATA BYTE 


*ER END OF DUMP/DUMPT #44 
DUMP“ S SUBROUTINES 


OUTBTC OUTPUTS A HEX BYTE AS TWO ASCII CHARACTERS 


TO THE TAPE RECORDER. 


PUTED. 


ALSO THE CHECK SUM IS COM- 


OUTBT OUTPUTS A HEX BYTE AS TWO ASCCI CHARACTERS 
TO THE TAPE RECORDER WITHOUT CHECK SUM COMPUTATION. 


NIBOUT CONVERTS A HEX NIBBLE TO AN ASCII CHARACTER 
AND TRANSMITS THE 8 BIT ASCII WORD TO THE TAPE. 


HIGH AND LOW PRORUCE THE DELAYS OF THE 3600 HZ AND 
THE 2400 HZ FREQUENCY. 


**R OUTBTC/OUTBT #4 


OUTBTC 


OUTBT 


TAY 
CLC 
ADC 
STA 
LDA 
ADCIM 
STA 
TYA 


TAY 


CHKL 
CHKL 
CHKH 
$00 

CHKH 


SAVE ACCU 


CHECK SUM COMPUTATION 


CHK:= CHK + BYTE 
GET ACCU AGAIN 


SAVE ACCU TEMP 
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0553: 
0554: 
0555: 
0556: 
0557: 
0558: 
0559: 
0560: 
0561: 
0562: 
0563: 
0564: 
0565: 
0566: 
0567: 
0568: 
0569: 
OT: 
0571; 
0572: 
0573: 
0574: 
0575: 
0576: 
0577: 
0578: 
0579: 
0580: 
0581: 
0582: 
0583: 
058: 
0585: 
0586: 
0587: 
0588: 
0589: 
0590: 
0591: 
0pge2: 
0593: 
059: 
0595: 
0596: 
0597: 
0598: 
0599: 
0600: 
0601: 
0602: 
0603: 
0604: 
0605: 
0606: 
0607: 
0608: 
0609: 
0610: 
0611: 
0612: 
0613: 
0614: 
0615: 
0616: 
0617: 
0618: 
0619: 
0620: 
0621: 
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OA8C 
GABD 
OABE 
OABF 
OA90 
OA93 
OAGL 
OA96 
OA9Y 


OAGA 
OAGC 
OA9D 
OAGF 


OAA1 


OAA3 
OAAS5 


OAA8 
OAAG 
OAAA 
OAAC 
OAAF 
OAB2 
OAB5 


OAB8 
OABB 
OABE 


OAC1 
OACe 
OAC5 
OACT 


OAC8 


OACB 
OACE 
OADO 
OAD3 
OAD6 
OAD9 
OADB 
OADE 
OAE1 
OAE2 
OAEL 


OAES5 
OAE8 


HA 
HA 
HA 
HA 
20 
98 
29 
20 


Cg 
18 
30 
69 


69 


A2 
BE 


3A 
48 
90 
20 
20 
20 
1C 
20 


20 
20 


68 
CE 


DO 
60 


AE 
26 


GA 


OF 
QA 


OA 


02 
07 


30 


08 
(de 


OC 
C8 
E5 
E5 
C1 


C8 
C8 
E5 


13 
E1 


76 


D5 
FB 
6C 
F4 
78 
80 
82 
78 


E7 


17 
D5 


OA 


OA 


OA 
OA 
OA 
OA 
OA 


OA 
OA 


1A 


1À 
1À 
1A 
1A 
1A 


JA 
TA 


TA 
1A 


LSRA 
LSRA 
LSRA 
LSRA 
JSR 
TYA 


GET UPPER NIBBLE 


NIBOUT OUTPUT UPPER NIBBLE AS ASCII CHAR. 


ANDIM $OF 


JSR 
RTS 


GET BYTE AGAIN 
GET LOWER NIBBLE 


NIBOUT OUTPUT LOWER NIBBLE AS ASCII CHAR, 


*EK END OF OUTBTC/OUTBT %#% 


**K NIBOUT/OUTCH ##% 


NIBOUT CMPIM 
CLC 
BMI 
ADCIM 


NIB ADCIM 


OUTCH LDXIM 
STX 


ONE LSRA 
PHA 
BCC 
JSR 
JSR 
JSR 
JMP 


ZERO JSR 
JSR 
JSR 


ZRO PLA 
DEC 
BNE 
RTS 


$OA 


NIB 
$07 


$30 


$08 
BITS 


ZERO 
HIGH 
LOW 
LOW 
ZRO 


HIGH 
HIGH 
LOW 


BITS 
ONE 


CONVERT A NIBBLE TO AN ASCII CHAR. 


SET UP FOR 8 BITS 


SHIFT OUT BIT BY BIT 
SAVE CHARACTER 
START AT 3600 HZ 


END AT 2400 HZ 


START AT 3600 HZ 
END AT 2400 HZ 


GET CHARACTER AGAIN 
ALL BITS SHIFTED OUT 


#4 END OF NIBOUT/OUTCH ##% 


ERN HIGH 4% 
HIGH LDX 


HIG BIT 
BPL 
LDA 
STA 
LDA 
EORIM 
STA 
STA 
DEX 
BNE 
RTS 


FIRST 


RDFLAG 
HIG 
HIGHER 
CNTA 
GANG 
$80 
PBD 
GANG 


HIG 


EER END OF HIGH ##% 


NRR LOW HER 


LOW LDX 
LO BIT 


SECOND 


RDFLAG 


AMOUNT OF HALF PERIODES. 
TIME OUT? 


SET UP TIMER FOR SHORT PERIODE 
DISABLE TIMER IRQ, CLKIT 


TOGGLE OUTPUT 
SAVE STATUS QUO 


AMOUNT OF HALF PERIODES 
TIME OUT? 


0622: 
0623: 
0624: 
0625: 
0626: 
0627: 
0628: 
0629: 
0630: 
0631: 
0632: 
0633: 
0634: 
0635: 
0636: 
0637: 
0638: 
0639: 
0640: 
0641: 
0642: 
0643: 
O64 U: 
0645: 
0646: 
0657: 
0648: 
064G: 
0650: 
0651: 
0652: 
0653: 
0654: 
0655: 
0656: 
0657: 
0658: 
0659: 
0660: 
0661: 
0662: 
0663: 
0664: 
0665: 
0666: 
„ 0667: 
0668: 
0669: 
0670: 
0671: 
0672: 
0729: 
0730: 
0731: 
0732: 
0733: 
0734: 
0735: 
0736: 
0737: 
0738: 
0739: 
0740: 
0741: 
o7ke: 
0743: 
O7: 
0745: 
0746: 


OAEB 
OAED 
OAFO 
OAF 3 
OAFG6 
OAF8 
OAFB 
OAFE 
OAFF 
OBO1 


OB02 
OBO4 
OB07 
OBOA 
OBOG 
OBOF 
0B11 
OB 14 
OB 16 
OB 19 


OB1C 
OB 1E 


OB21 
OB24 
OB27 
OB2A 
OB2D 
OB2F 
0B31 
OB 33 


OB 36 
OB39 
OB 3C 
0B3E 
OB4O 
OBBA 
OBBD 
OBBF 


OBC2 
OBC5 
OBC7 
OBCA 


10 
AD 
8D 
AD 
ug 
8D 
8D 
CA 
DO 
60 


A9 


8D 
A9 


Ag 
8D 
Ag 
8D 
8D 


Ag 
8D 


20 
6E 
AD 
20 
Cg 
DO 
AO 
8C 


20 
20 
C9 
DO 
CE 
AD 
85 
4C 


2C 
10 
AD 
AO 


FB 
6D 
FU 


80 
82 
78 


E7 


32 


78 
TE 
83 
7F 
81 
00 
6E 
6F 


FF 
6B 


C2 
6B 
6B 
E8 
16 
FO 
OA 
69 


36 


16 
DC 
69 
11 
FB 
70 


82 
FB 
Dä 
PE 


1À 
1A 
1A 


TA 
TA 


1A 
TA 


1À 
1Â 
1A 
1A 
TA 
OB 
TA 


1A 
OB 


TA 
OC 
OC 
1A 
1A 


OB 


1A 
1A 


BPL LO 
LDA LOWER SET UP TIMER FOR LONG PERIODE 
STA CNTA DISABLE TIMER IRQ, CLK1T 


LDA GANG 

Ni EORIM $80 TOGGLE OUTPUT 
STA PBD 
STA GANG SAVE STATUS QUO 
DEX 
BNE LO 
RTS 


KEE END OF LOW ### 


NRN NK HAN HKNN NN HNHK KMK KH HH 


* RDTAPE IS A SUBROUTINE % 
HNNVKNKURNKNNNKKNN ERK N KLU U 


ID = 00: IGNORE ID ON TAPE; DISCARD DATA BLOCK 
AT SAL, SAH COMING FROM TAPE 


ID = FF: IGNORE ID ON TAPE; DISCARD DATA BLOCK 
AT SAL, SAH STORED IN JUNIORS MEMORY 


RDTAPE LDAIM $32 INPUT RECORDER IS ON 
STA PBD OUTPUT RECORDER IS OFF, PB7 IS ENABLED 
STA GANG STROBE ‘9’ IS ENABLED 
LDAIM $7E PBO IS INPUT 
STA PBDD PB7 IS INPUT 
LDAIM $7F PA6...PAO IS OUTPUT 
STA PADD 
LDAIM $00 SEGMENTS ON 
STA CHKL RESET CHECK SUM 
STA CHKH 


SYNC LDAIM $FF RESET FOR SYN CHARACTER 
STA CHAR 


SYNCA JSR RDBIT READ A BIT FROM TAPE 
ROR CHAR RIGHT SHIFT 
LDA CHAR GET CURRENT CHARACTER 
JSR BTWEEN DISPLAY NOT SYN CHARACTER 
CMPIM ° SYN CHARACTER? 
BNE SYNCA IF NOT, RESYNC 
LDYIM $0A TRY IT FOR 10 SYNS AT LEAST 
STY SY SYN COUNTER 


TENSYN JSR RDCH 
JSR CHARVU DISPLAY SYN CHARACTER 


CMPIM STILL SYN CHARACTER? 
BNE SYNC IF NOT, RETURN 

DEC SY 10 SYNS RECEIVED? 
LDA SAH 


STAZ POINTH 
JMP FILMEM 


ERK END OF RDTAPE ## 
SUBROUTINES OF RDTAPE 

ERK RDBIT #44 

RDBIT READS 1 BIT FROM TAPE. 
LOG 1: IT RETURNS WITH C = 1 
LOG O0: IT RETUNS WIEH C = 0 


RDBIT BIT PBD 3600 HZ? 


BPL RDBIT 
LDA RDTDIS GET COUNT DOWN 
LDYIM $FF 
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0747: 
0748: 
0749: 
0750: 
0751: 
0752: 
053: 
0754: 
OE 
0756: 
Oor: 
0758: 
0759: 
0760: 
0761: 
0762: 
0763: 
0764: 
0765: 
0766: 
0767: 
0768: 
0769: 
Of/.0s 
OTT 1: 
0772: 
0773: 
O77k: 
0715 
0776: 
0777: 
0778: 
0779: 
0780: 
0781: 
0782: 
0783: 
0784: 
0785: 
0786: 
0787: 
0788: 
0789: 
0790: 
0791: 
OTg2: 
0793: 
079: 
0795: 
0796: 
0797: 
0798: 
0799: 
0800: 
0801: 
0802: 
0803: 
0804: 
0805: 
0806: 
0807: 
0808: 
0809: 
0810: 
0811: 
0812: 
0813: 
0814: 
0815: 
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OBCC 
OBCF 


OBD 1 
OBD2 


OBD4 
OBD7 
OBD9 
OBDA 
OBDD 
OBDF 
OBE2 


OBEU 
OBES5 
OBE7 


OBE8 
OBE9 
OBEB 
OBEE 
OBEF 
OBF 2 


OBF 3 
OBF6 
OBF8 


OBFA 


OBFB 
OBFE 
0C00 
0CO1 
0C02 
0C03 
OCO4 
0COT 
OCOA 
OCOC 
OCOE 
OC 11 
0C13 
0C 16 
0C 18 


8C 
AO 


88 
DO 


2C 
30 


ED 
AO 
8C 
AO 


88 
DO 
60 


48 
A9 


F6 
14 


FD 


82 
FB 


Du 
EE 


F6 
07 


FD 


36 


TA 


1À 


1À 


TA 


8D 80 1A 


20 
60 


20 
C9 
DO 


60 


20 
30 
OA 
OA 
OA 
OA 
8D 
2 
Cg 
FO 
20 
30 
OD 
AO 
60 


64 


36 
2e 
01 


19 
FA 


6A 
36 
2F 
EC 
19 
E7 


01 


OC 


OC 


OC 


14 
OC 


OC 
1À 


STY CNTC START TIMER FOR 2400 HZ COUNT DOWN 
LDYIM $14 
RDBA DEY DELAY JITTER TIME 
BNE RDBA 
RDBB BET PBD 2400 HZ? 
BMI RDBB 
SEC 
SBC RDTDIS SET OR RESET C-FLAG 
LDYIM $FF 


STY CNTC START TIMER FOR 3600 HZ COUNT DOWN 
LDYIM $07 DELAY FOR JITTER 


RDBC DEY 
BNE RDBC 
RTS 


*RKR END OF RDBIT *#& 


NAR BTWEEN ##% 


DISPLAY THE BETWEEN CHARACTER 


BTWEEN PHA SAVE ACCU 
LDAIM $36 OUTPUT BETWEEN CHARACTER 
STA PAD 
PLA „GET ACCU AGAIN 
JSR vu DONT CHANGE BETWEEN 
RTS : 


KR END OF BTWEEN ##% 
RR RDBYT HR 


READ 1 HEX BYTE = 2 ASCII CHARACTERS FROM TAPE. 
COMPOSE THE HEX VALUES OF THE CHARACTERS IN ACCU 
AND RETURN. 


1) N = 1: A NOT VALID HEX CHARACTER WAS TRANSMITTED 
2) Z = 1: END OF DATA TRANSMISSION 
3) Z = O: VALID HEX BYTE IN ACCU 
}) THE N-FLAG HAS ALWAYS PRIORITY 
RDBYT JSR RDCH READ ANY ASCII CHARACTER FROM TAPE 
CMPIM °/ END OF DATA CHARACTER? 
BNE RBB 
RBA RTS ERROR EXIT 
RBB JSR ASCHEX ASCII HEX CONVERSION 
BMI RBA NOT VALID CHARACTER 
ASLA SHIFT NIBBLE TO LEFT 
ASLA : 
ASLA 
ASLA 


STA BYTE SAVE HIGH ORDER NIBBLE 

JSR RDCH READ NEXT CHARACTER 

CMPIM °/ END OF DATA CHARACTER 

BEQ RBA 

JSR ASCHEX ASCII HEX CONVERSION 

BMI RBA NOT VALID CHARACTER 

ORA BYTE BYTE = HIGH ORDER AND LOW ORDER NIBELI 
LDYIM $01 BE SHURE THAT CHARACTER 

RTS NORMAL EXIT 


EEK END OF RDBYT ### 


0816: 
0817: 
0818: 
0819: 
0820: 
0821: 
0822: 
0823: 
0824: 
0825: 
0826: 
0827: 
0828: 
0829: 
0830: 
0831: 
0832: 
0833: 
0834: 
0835: 
0836: 
0837: 
0838: 
0839: 
0840: 
0841: 
0842: 
0843: 
o8u4: 
085: 
0846: 
0847: 
08u8: 
08u: 
0850: 
0851: 
0852: 
0853: 
0851: 
0855: 
0856: 
0857: 
0858: 
0859: 
0860: 
0861: 
0862: 
0863: 
0864: 
0865: 
0866: 
0867: 
0868: 
0869: 
0870: 
0871: 
0872: 
0873: 
0874: 
0875: 
0876: 
0877: 
0878: 
0879: 
0880: 
0881: 
0882: 
0883: 
0884: 


OC 19 
OC1B 
OC 1D 
OC IF 
0C21 
0C23 
0C25 
oceT 


0C29 
0C2B 


oce2C 
OC2E 
0C30 
0C31 


0C33 
0C35 


0C36 


0C38 
0C3B 
0C3E 
0C3F 
och1 
OCH 4 
OC47 
OCHA 


0C4B 
OCHC 
OCUD 
0C50 
0C53 
0C56 
0C58 
0C5B 
0C5C 


Cg 
30 
Cg 
30 
Cg 
30 


30 


AO 
60 


Cg 
30 
18 
69 


8 
60 


A2 


20 
GE 
CA 
DO 
2E 
JE 
AD 
60 


48 
18 
6D 
8D 
AD 


8D 
68 
60 


30 
OC 
3ÀÂ 


41 
O4 
47 
03 


FF 


40 
03 


09 


OF 


08 


C2 
6B 


F7 
6B 
6B 
6B 


6E 
GE 
6F 
00 
6F 


OB 
1ÀA 


1A ” 


1A 
1À 


TA 
TA 
1A 


TA 


KEK ASCHEX #4 


CONVERT AN ASCII CHARACTER TO A HEX DATA NIBBLE. 


1) RETURN WITH CONVERTED HEX NUMBER IN ACCU 
2) N = 1, IF NOT VALID HEX NUMBER 
3) Z = 1, IF VALID HEX NUMBER 
U) #4 ASCHEX IS ALSO USED IN THE PRINTER SOFTWARE ##% 
ASCHEX CMPIM $30 IGNORE 00...2F 
BMI NOTVAL 
CMPIM $3Â 
BMI VALID 
CMPIM $41 IGNORE 3A...40 
BMI NOTVAL 
CMPIM $U7 IGNORE 47...7F 
BMI VALID 
NOTVAL LDYIM $FF SET N-FLAG 
RTS ERROR EXIT 
VALID CMPIM $10 ASCII HEX CONVERSION 
BMI VAL 
CLC 
ADCIM $09 


VAL ANDIM $OF HEX DATA IS LOW ORDER NIBBLE IN ACCU 
RIS 


KAR END OF ASCHEX #%3% 

RER RDCH HR 

READ AN ASCII CHARACTER FROM TAPE AND 
STORE IT IN ACCU 

RDCH LDXIM $08 SET UP FOR 8 BITS 


READ JSR- RDBIT READ A BIT FROM TAPE 
ROR CHAR SHIFT BIT INTO CHARACTER 


DEX ALL BITS READ? 

BNE READ 

ROL CHAR B7 MUST BE ZERO 

LSR CHAR 

Eee CHAR RECEIVED CHARACTER TO ACCU 


*** END OF RDCH #3 


„ERR CHKSUM kl 


COMPUTE CHECK SUM OF RECEIVED DATA 


CHKSUM PHA SAVE ACCU 
CLC 
ADC CHKL CHK := CHK + BYTE 
STA CHKL 
LDA CHKH 
ADCIM $00 
STA CHKH 
PLA GET ACCU AGAIN 
‚RTS 


“RR END OF CHKSUM *4% 


RER CHARVU ne 
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0885: 
0886: 
0887: 
0888: 
0889: 
0890: 
0891: 
0892: 
0893: 
0894: 
0895: 
0896: 
0897: 
0898: 
0899: 
0900: 
0901: 
0902: 
0903: 
090ok: 
0905: 
0906: 
0907: 
0908: 
0909: 
0910: 
0911: 
0912: 
0913: 
0914: 
0915: 
0916: 
ID=BU 


0001: 
0002: 


0003: 
0004: 
0005: 
0006: 
0007: 
0008: 
0009: 
0010: 
OO T1 
0012: 
0013: 
0014: 
6015: 
0016: 
0017: 
0018: 
0019: 
0020: 
0021: 
0022: 
0023: 
oge: 
0025: 
0026: 
0027: 
0028: 
0029: 
0030: 
0031: 
0032 
0033: 


2065 


OC5D 
OCBE 
0C6O 
0C63 


0C6 4 
0C65 
0C68 
OC6A 
OC6D 
0C70 
OCT 1 


0C72 
0C73 
0C75 
OCTT 
0C79 
0C7B 
OCTD 
OC7F 


on 
JE 


1000 


1000 
100 1 
1002 
1004 
1007 
1009 
100C 
100E 
1011 


48 


8D 
68 


8 


49 
8D 
8D 
68 
60 


38 


E9 
85 
A5 
E9 
85 
60 


D8 
78 
A9 
8D 
Ag 
8D 
A2 
8E 
E8 


78 
de 
82 
78 


FA 
01 
FA 
FB 
00 
FB 


67 


TA 


TA 


82 1A 


00 


80 1A 


DA TA 


OUTPUT ANY CHARACTER TO 7 SEGMENT DISPLAY 
CHARACTER CHANGE IS ENABLED/DISABLED 


CHARVU PHA SAVE ACCU 
EORIM $7F OUTPUT INVERTED CHAR. TO SEGMENTS 
STA PAD 
PLA RESTORE ACCU 

VU PHA 
LDA GANG 
EORIM $02 CHANGE DISPLAYS 
STA PBD 
STA GANG SAVE STATUS QUO 
PLA 
RTS 


“XR END OF CHARVU #* 


ADJPNT ADDRESS POINTER ADJUSTMENT 


ADJPNT SEC 16 BIT SUBTRACTION 
LDAZ POINTL 
SBCIM $01 


STAZ POINTL 
LDAZ POINTH 


SBCIM $00 
STAZ POINTH 
RTS 


t*R END OF ADJPNT #*% 


ORG $1000 


NNRMNANK KKK KKH HMH IK HMA HI HMH HMH HHK H NH HN NN HHN HKH 


ERK MAIN PROGRAM OF THE PRINTER MONITOR ### 
VRNRKENMENKNNNNKN NN KENNEN NN KNN KNN KENNEN KNK N KKH 


COMMANDS OF THE PRINTER MONITOR: 


“== _DECREMENT THE CURRENT ADDRESS BY ONE 
‘+ _INCREMENT THE CURRENT ADDRESS BY ONE 
SPACE” 1) PRINT THE ADDRESS IN THE INPUT BUFFER 

2) SHOW THE DATA OF THIS ADDRESS 
STORE INPUT DATA AT THE CURRENT ADDRESS 
START PROGRAM EXECUTION AT THE CURRENT ADDRESS 
LIST THE CONTENTS OF ALL CPU REGISTERS 
PRINT OUT THE LAST PROGRAM CONTER 

PRINT A HEXDUMP SPECIFIED BY THE INPUT PARAMETER 
‘G° READ A DATA BLOCK WITH A CERTAIN ID FROM TAPE 
S° STORE A DATA BLOCK BETWEEN SA AND EA-1 ON TAPE 


vvv 


„ 


e, 
N 
8 

B, 


Nv VV Vvv 


INITPR CLD RESET SEQUENCE OF THE PRINTER PROGRAM 
SEI IRQ LINE IS DISABLED 
LDAIM $67 
STA PBD PBD: 01100111 
LDAIM $00 
STA PAD PAD: 00000000 
LDXIM $FE RESET BIT TIME COUNTER 
STX CNTL 
INX 


0034: 
0035: 
0036: 
0037: 
0038: 
0039: 
OOuD: 
OOU 1: 
oou2: 
oon3: 
ooi: 
0045: 
oo46: 
OOH7: 
0048: 
ookg: 
0050; 
0051: 
0052: 
0053. 
0054: 
0055: 
0056: 
0057: 
0058: 
0059: 
0060: 
0061: 
0062: 
0063: 
006: 
0065: 
0066: 
0067: 
0068: 
0069: 
0070: 
0071: 
0072: 
GO rs. 
007k: 
0075: 
0076: 
OOTT: 
0078: 
0079: 
0080: 
0081: 
0082: 
0083: 
008: 
0085: 
0086: 
0087: 
0088: 
0089: 
0090: 
0091: 
0092: 
0093: 
Oog k: 
0095: 
0096: 
0097: 
0098: 
0099: 
0100: 
0101: 
0102: 


1012 
1015 
1016 
1018 
1014 
101D 
1020 
1022 
1025 
1027 
102A 
102C 
102F 
1031 
1034 
1036 


1039 
103C 
103E 
1041 
1044 
1087 
104A 
104D 
1050 
1053 
1055 
1058 
105B 
105D 


105F 
1062 
1065 
1067 
1068 


106A 
106D 


1070 


1073 
1075 
1077 
107A 
107D 


1080 
1082 
1084 
1087 
108A 


108D 
108F 
1091 
1093 
1095 
1097 
1099 
109C 


109F 
1041 
1043 
1045 
10A7 


5B 


EZ 
EE 


83 
02 
59 
SE 
TC 
10 
7D 
CF 
7A 
14 
7B 


80 
EB 
EO 
5F 
5E 
DE 
5C 
5E 


08 


03 
BE 
7E 
A1 


56 
E8 
FF 


F2 


59 
68 


AE 


2B 
09 


F8 
6A 


2D 
09 
TA 
F8 
6A 


20 
OE 
F8 
FA 
F9 
FB 
F8 
6A 


2E 
OF 
F8 


FA 


TA 
1À 
TA 
1À 
1A 


Ee 
1Â 
1A 
TA 
TÀ 
1À 
1A 


15 
1 


12 
11 


12 
12 


12 


12 
Ei 
10 


12 
11 
10 


11 


STRTBT 


LABJUN 


RESALL 


READCH 


PLU 


MINUS 


SPACE 


PNT 


STX 
TXS 
STXZ 
LDA IM 
STA 
STA 
LDXIM 
STX 
LDA IM 
STA 
LDA IM 
STA 
LDA IM 
STA 
LDA IM 
STA 


BIT 
BMI 
JSR 
LSR 
ROR 
LDA 
STA 
LDA 
STA 
LDXIM 
JSR 
JSR 
CMPIM 
BNE 


JSR 
JSR 
LDXIM 
TXS 
STXZ 


JSR 
JSR 


JSR 


CMPIM 
BNE 
JSR 
JSR 
JMP 


CMPIM 
BNE 
JSR 
JSR 
JMP 


CMP IM 
BNE 
LDAZ 
STAZ 
LDAZ 
STAZ 
JSR 
JMP 


CMPIM 
BNE 
LDAZ 
LDYIM 
STAIY 


CNTH 


SPUSER 
$7F 
PADD 
PBDD 
$02 
STPBIT 
LABJUN 
BRKT 
LABJUN 
BRKT 
STEP 
NMI 
STEP 
NMI 


PAD 
STRTBT 
COMTIM 
TIMH 
TIML 
TIML 
CNTHL 
TIMH 
CNTHH 
$08 
DELHBT 
RECD 
$7F 
INITPR 


JUNIOR 
CRLF 
SFF 


SPUSER 


RESPAR 
RESIN 


RECCHA 


Tt 
MINUS 
INCPNT 
PRBUFS 
RESALL 


Ed 


SPACE 

DECPNT 
PRBUFS 
RESALL 


, 


PNT 
INL 
POINTL 
INH 
POINTH 
PRBUFS 
RESALL 


„ 


RUN 
INL 
$00 
POINTL 


RESET COMPUTER STACK POINTER 
RESET USER STACK POINTER 


PADD: 


01111111 
PBDD: 01111111 
TRANSMIT NONE PARITY & ONE STOP BIT 
SETUP BREAK VECTOR 
/256 
+01 
SETUP STEP BY STEP VECTOR 


/256 
+01 


WAIT FOR A START BIT 

COMPUTE THE START BIT TIME 

DIVIDE BY 2 

SAVE HALF START BIT TIME 

GET THE REST OF THE CHARACTER 

WAS IT THE RUBOUT CHARACTER? 

PRINT ‘JUNIOR 

RESET STACK POINTER WHEN A BREAK OCCURS 
RESET PARAMETER BUFFER 


RESET INPUT BUFFER 


WAIT FOR A CHARACTER 


INCREMENT CURRENT ADDRESS 
OPEN NEXT CELL 


DECREMENT CURRENT ADDRESS 
OPEN PREVIOUS CELL 


OUTPUT THE ADDRESS 
IN THE INPUT BUFFER 


OPEN CURRENT CELL 


STORE CURRENT DATA BYTE IN MEMORY 
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0103: 
0104: 
0105: 
0106: 
0107: 
0108: 
0109: 
0110: 
O1: 
0112: 
0113: 
0114: 
0115: 
0116: 
OTE 
0118: 
0119: 
0120: 
Eels 
0122: 
0123: 
Ooie: 
0125: 
0126: 
‚0127: 
0128: 
0129: 
0130: 
0131: 
0132: 
0133: 
0135: 
0135: 
0136: 
0137: 
0138: 
0139: 
o140: 
0141: 
oke: 
0143: 
Oil: 
O145: 
o146: 
0147: 
0148: 
0149: 
0150: 
815.17: 
0152: 
0153: 
0154: 
0155: 
0156: 
Ors 
0158: 
0159: 
0160: 
0161: 
0162: 
0163: 
0164: 
0165: 
0166: 
0167: 
0168: 
0169: 
0170: 
0171: 
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1049 
10 AC 
1OAF 


10B2 
10B4 
10B6 
10B8 
10B9 
10BB 
10BC 
TOBE 
1OBF 
10C1 
10C2 
10C4 
10C6 
10C8 


10C9 
10CB 
10CD 
1OCF 
10D2 
10D4 
10D7 
10D9 
10DC 
10ODE 
10E1 
10E3 
10E6 
10E8 
1OEB 
10ED 
10FO0 
10F2 
10F5 
10F7 
10FA 
1OFC 
1OFF 
1101 
1104 
1106 
1109 
110B 
110E 
1111 
1113 
1116 
1119 


111C 


C9 
DO 
A5 
85 
A5 
85 
20 
4C 


Cg 
DO 
AQ 
20 


13 
F8 
6A 


De 
13 
F2 


FB 
FA 
F1 
ES 
F3 


UC 
DE 
14 
D6 
5: 
8F 
TA 
D6 


8F 
20 
D6 
F5 
8F 
26 
D6 
FO 
8F 
EF 
8F 
2C 
D6 
01 
8F 
F2 
BF 
32 
D6 
28 
38 
D6 
F3 
6A 


BO 


50 
OE 
EF 
FA 
FO 
FB 
F8 
GA 


UD 
E7 
De 
D6 


12 
11 
10 


11 


12 


11 


Le 
11 
12 
11 
12 
12 
11 
12 
12 


11 
12 


1 
11 
10 


11 


11 


RUN 


LIST 


CONTIN 


PG 


MATRIX 


JSR 
JSR 


JMP 


CMPIM 
BNE 
LDXZ 
TXS 
LDAZ 
PHA 
LDAZ 
PHA 
LDAZ 
PHA 
LDXZ 
LDYZ 
LDAZ 
RTI 


CMPIM 
BNE 
LDYIM 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
LDAZ 
JSR 
LDY IM 
JSR 
LDAZ 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
LDA IM 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 
JSR 
LDYIM 
JSR 
JSR 
JMP 


JMP 


CMPIM 
BNE 
LDAZ 
STAZ 
LDAZ 
STAZ 
JSR 
JMP 


CMPIM 
BNE 
LDYIM 
JSR 


INCPNT 
PRBUFS 
RESALL 


„ 


R 
LEEST 
SPUSER 


POINTH 


POINTL 
PREG 


XREG 
YREG 
ACC 


, 


L 

PC 
$14 
MESSY 
ACC 
PRBYT 
SIA 
MESSY 
YREG 
PRBYT 
$20 
MESSY 
XREG 
PRBYT 
$26 
MESSY 
PCH 
PRBYT 
PCL 
PRBYT 
$2C 
MESSY 
$01 
PRBYT 
SPUSER 
PRBYT 
$32 
MESSY 
SHOWPR 
$38 
MESSY 
PRSP 
RESALL 


GETTAP 


„ 


P 
MATRIX 
PCL 

POINTL 
PCH 

POINTH 
PRBUFS 
RESALL 


, 


CONTIN 
$52 
MESSY 


OPEN NEXT CELL 


START PROGRAM EXECUTION 


AT THE CURRENT DISPLAYED ADDRESS 


ACC: 


PG 


SP 


PR 5 
PRINT OUT FLAGS 


NV BDIZC 


RESTORE LAST PROGRAM COUNTER 


OPEN CURRENT CELL 


HEXDUMP: 


172% 
1735 
dfdbe 
115: 
176: 
TPS 
178: 
179: 
180: 
187 
182: 
183: 
184: 
185: 
186: 
187: 
188: 
189: 
190: 
191: 
192: 
193: 
194: 
195: 
196: 
197: 
198: 
199: 
200: 
2012 
202% 
203: 
204: 
205: 
206: 
207 
208: 
209: 
210: 
2118 
a 
213: 
214: 
219 
216: 
217 
218: 
219: 
220: 
gel: 
Zegt 
223: 
22: 
225 
1226: 
zet: 
1228: 
229: 
230: 
231: 
Vase. 
1233 
23h: 
12353 
236: 
1237 
238: 
)239: 
)2h0: 


113A 
113D 


ILSE 


1142 
1143 
1146 
1149 
118C 
114F 
145 
1154 


1156 
1159 
115A 
115C 


115E 
15E 
1162 
1165 
1168 
1169 
116B 
116D 
1170 
1172 
1175 


dk 
117A 
117C 
117E 
1181 
1183 
1186 
1188 


118B 
118C 
118F 
1191 
1194 
1196 
1198 
119B 


119E 
1140 
1142 
1145 
1148 
11AB 
11AC 
11AE 


11B0 
11B2 
11B4 
11B7 
11B9 


11BC 
11BF 


11C1 
11C3 


20 
10 


ue 


38 
AD 
ED 
AD 
ED 


90 
A2 


20 
CA 
DO 
AO 


98 
20 
20 
20 
C8 
CO 
DO 
AD 
85 
AD 
85 


20 
A2 
AD 
20 
A5 
20 
AO 
20 


38 
AD 
E5 
AD 
E5 
BO 
20 
ie 


AO 
B1 
20 


20 
CA 
DO 
FO 


Cg 
DO 
20 
4C 
4e 
Cg 


DO 
20 


87 
03 


5F 


9B 
E3 
E3 


10 
F1 
63 
FA 
64 
FB 


E8 
10 
FB 
8F 
FA 
8F 
17 
D9 


65 
FA 
66 
FB 
06 
E8 
5F 


00 
FA 
8F 
F3 
13 


DD 
C7 


7 
OB 
8A 
03 
6 A 


BE 
53 


08 
3B 


4 


10 


TA 


1A 
1ÀA 


11 


12 
11 
11 


1À 


TA 


11 


12 
12 
11 


1À 


1A 


12 
11 
12 


14 


10 


14 


MATD 


MATF 


MATG 


MATH 


MATJ 


MATK 


MATL 


GETTAP 


GETERR 


SAVID 


JSR 
BPL 


JMP 


SEC 
LDA 
SBC 
LDA 
SBC 
BCC 
JSR 
LDXIM 


JSR 
DEX 
BNE 
LDYIM 


TYA 
JSR 
JSR 
JSR 
INY 
CPYIM 
BNE 
LDA 
STAZ 
LDA 
STAZ 


JSR 
LDXIM 
LDAZ 
JSR 
LDAZ 
JSR 
LDYIM 
JSR 


SEC 
LDA 
SBCZ 
LDA 
SBCZ 
BCS 
JSR 
JMP 


LDYIM 
LDAIY 
JSR 
JSR 
JSR 
DEX 
BNE 
BEQ 


CMP IM 
BNE 
JSR 
BMI 
JMP 


JMP 
CMPIM 


BNE 
JSR 


INPAR 
MATF 


LABJUN 


PARBL, 
PARAL 
PARBH 
PARAH 
MATD 
CRLF 
$06 


PRSP 


MATG 
$00 


PRNIBL 
PRSP 
PRSP 


$10 
MATH 
PARAL 
POINTL 
PARAH 
POINTH 


CRLF 
$10 
POINTH 
PRBYT 
POINTL 
PRBYT 
$17 

ME 


PARBL 
POINTL 
PARBH 
POINTH 
MATL 
CRLF 
LABJUN 


$00 
POINTL 
PRBYT 
PRSP 
INCPNT 


MATK 
MAT J 


, 


SAVID 
GETID 


GETERR 
RESALL 


LABJUN 
we 


VALNUM 
SAID 


READ PARAMETERS 


RETURN, IF INVALID CHARACTER 


VALID INPUT PARAMETERS? 


PARA < PARB? 


RESET COLUMN COUNTER 


OUTPUT COLUMNS 


PRINT COLUMS O...F 


SETUP MATRIX POINTER 


OUTPUT CURRENT MATRIX ADDRESS 


HEXDUMP FINISHED? 


HEXDUMP IS FINISHED 


FETCH CURRENT DATA BYTE 
OUTPUT CURRENT DATA BYTE 


READ DATA FROM TAPE SPEC. 
ILLEGAL CHARACTER? 
NORMAL EXIT 


BY ID 


NO COMMAND KEY WAS DEPRESSED 
STORE DATA ON TAPE SPECIFIED BY THE PARAMETERS 
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o2b1: 
oee: 
23: 
O2: 
o2k5: 
o246: 
oe247: 
0248: 
o2g: 
0250: 
0251: 
0252: 
0253: 
oes: 
0255: 
0256: 
0257: 
0258: 
0259: 
0260: 
0261: 
0262: 
0263: 
0264: 
0265: 
0266: 
0267: 
0268: 
0269: 
0270: 
0271: 
0272: 
0273: 
0274: 
0275: 
0276: 
0277: 
0278: 
0279: 
0280: 
0281: 
0282: 
0283: 
028%: 
0285: 
0286: 
0287: 
0288: 
0289: 
0290: 
0291: 
0292: 
0293: 
oe2gk: 
0295: 
0296: 
0297: 
0298: 
0299: 
0300: 
0301: 
0302: 
0303: 
0304: 
0305: 
0306: 
0307: 
0308: 
0309: 
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11C6 
11C8 


11CB 
11CE 
11D0 


11D3 


11D6 


11D9 
11DC 
11DE 
11EO 
11E3 
11E4 


11E7 


11E8 
11EA 
11ED 


11EF 
11F2 


11F3 
11F5 


11F8 
11FB 
11FD 
1200 
1202 
1205 
1208 
1204 
1206 
120F 
1212 


1213 
1215 
ted 


1219 


121A 


30 
hc 


20 
DO 
UC 


HC 


20 
B9 


FO 
20 
C8 
HC 


60 


A9 
20 
Ag 


20 
60 


Ag 
UC 


20 
A5 
20 
A5 
20 
20 
AO 
B1 
20 
20 
60 


E6 
DO 
E6 


60 


38 


Fl 
GA 


6F 
03 
70 


6A 


E8 


BD 
03 


34 
D9 


OD 
34 
OA 
34 


20 
EF 


E8 
8F 


FA 


8F 
F3 
00 
FA 
8F 


F3 


FA 
02 
FB 


10 
12 
10 


10 


13 


13 
11 


13 


11 


11 


12 


12 
11 


BMI GETERR ILLEGAL PARAMETER WAS ENTERED 
JMP RESALL 


VALNUM JSR HEXNUM INPUT DATA TO BUFFER 


VNA 


BNE VNA 
JMP READCH 


JMP RESALL 


NHRNUNNNRWUNRHNENKENRHANNKNNHNENANK KHAN ANN HAKA H 


**R SUBROUTINES OF THE PRINTER MONITOR #%#% 
HRNKRENKUEN ENEN KN NKK KNN K ANN UIEN KEKEN KENNEN UE 


MESSY PRINTS A MESSAGE, POINTED BY Y REGISTER 


MESSY 


ME 


MESEND 


JSR CRLF PRINT A CR&LF 


LDAY MESS LOAD CHARACTERS 

CMPIM $03 ETX CHARACTER ? 

BEQ MESEND 

JSR PRCHA CHARACTER TO TTY 
INY 

JMP ME 


RTS 


CRLF PRINT CARRIAGE RETURN & LINE FEED 
PRSP PRINT A SPACE 


CRLF 


CLEND 


PRSP 


PRBUFS 


PRBUFS 


INCPNT 


INGPNT 


ir 


DECPNT 
DECPNT 


LDAIM $OD 
JSR PRCHA OUTPUT CR 
LDAIM $0A 


JSR PRCHA OUTPUT LF 
RTS 


LDAIM $20 
JMP CLEND OUTPUT A SPACE 


OUTPUT ADDRESS AND DATA 


JSR CRLF 

LDAZ POINTH 

JSR PRBYT OUTPUT HIGH ORDER ADDR 
LDAZ POINTL 


JSR PRBYT OUTPUT LOW ORDER ADDR 
JSR PRSP 


LDYIM $00 
LDAIY POINTL FETCH DATA FROM MEMORY 
JSR PRBYT 


JSR PRSP 

RTS 

INCRMENT ADDR POINTER BY ONE 
INCZ POINTL 

BNE LE 

INCZ POINTH 


RTS 


DECREMENT ADDR POINTER BY ONE 
SEC 


0310: 
O1: 
0312: 
0313: 
0314: 
0315: 
0316: 
0317: 
0318: 
0319: 
0320: 
0321: 
0322: 
0323: 
o3e2k: 
03252 
0326: 
0327: 
0328: 
0329: 
0330: 
0331: 
0332: 
0333: 
0334: 
05 
0336: 
0337: 
0338: 
0339: 
0340: 
0341: 
0342: 
0343: 
O3ub; 
0345: 
0346: 
0347: 
0348: 
034g: 
0350: 
0351: 
0358: 
0353: 
0354: 
0355: 
0356: 
Oee 
0358: 
0359: 
0360: 
0361: 
0362: 
0363: 
0364: 
0365: 
0366: 
0367: 
0368: 
0369: 
0370: 
0371: 
0372: 
0373: 
0374: 
0375: 
0376: 
0377: 
0378: 


121B 
121D 
121F 
1221 
1223 
1225 
t2e7 


1228 
12e2A 
122D 


22E 
1232 
1234 
1236 
1239 
123A 
123C 


123D 
123F 
teke 
1243 
1245 


1246 


1248 
124B 
125E 


128 
1251 


1254 
1256 


1259 
1255 
125E 
1261 
1264 
1267 


1268 
126A 
126C 
126E 


126F 
1272 


A5 
E9 
85 
A5 
E9 
85 
60 


A5 
8D 
A2 


OE 
90 
A9 
20 
CA 
DO 
60 


A9 
20 


CA 
1p A 


DO 
60 


AO 


20 
20 
60 


AO 
HC 


AO 
UC 


AO 
8C 
8C 
8C 
8C 
60 


AO 
84 
84 


60 


20 
30 


FA 
01 
FA 
FB 
00 
FB 


F 1 
67 
08 


67 
09 
01 
QB 


F3 


00 
9B 


EA 


00 


D6 
E8 


07 
48 


OE 
48 


00 
63 
6% 


65 
66 


00 
F8 


F9 


1E 
10 


12 


11 
11 


12 


12 


1À 
1À 
TA 
1A 


14 


SHOWPR 


SHOWPR 


SPRA 


SPRB 


JUNIOR 
EDITOR 
ASSEM 

JUNIOR 


JUN 


EDITOR 


ASSEM 


LDAZ POINTL 16 BIT SUBTRACTION 
SBCIM $01 

STA4 POINTL 

LDAZ POINTH 


SBCIM $00 
STAZ POINTH 
RTS 


SHOW THE CONTENTS OF THE P REGISTER 


LDAZ PREG 
STA PRTEMP 
LDXIM $08 BIT COUNTER 


ASL PRTEMP SHIFT OUT THE BITS 
BCC SPRB IS IT A O0 OR 1 ? 


LDAIM $01 Eeen 

JSR _PRNIBL PRINT A “1 

DEX 

BNE SPRA ALL BITS PRINTED ? 
RIS 

LDAIM $00 

JSR _PRNIBL PRINT A ’0’ 

DEX 

BNE _SPRA ALL BITS PRINTED ? 
RTS 


PRINT “JUNIOR® 
PRINT ‘EDITOR 
PRINT ‘ASSEMBLER 


LDYIM $00 
JSR MESSY 
JSR CRLF 
RTS 

LDYIM $07 
JMP JUN 
LDYIM $0E 
JMP JUN 


RESET SUBROUTINES 


RESPAR 


RESIN 


HEXNUM 


HEXNUM 


LDYIM $00 
STY PARAL 
STY PARAH 
STY PARBL 
STY PARBH 
RTS 

LDYIM $00 
STYZ INL 
STYZ INH 
RTS 
>CONVERT AN ASCII CHAR. TO A HEX NIBBLE 


>SHIFT HEX DATA NIBBLE INTO BUFFER 

>PRINT ‘WHAT? IF CHARACTER WAS NOT VALID 
>RETURN WITH Z=1, IF VALID CHARACTER 
>RETURN WITH N=1, IF NOT VALID CHARACTER 


JSR ASHETT ASCII HEX CONVERSION 
BMI HNUB NOT VALID ? 
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0379: 
0380: 
0381: 
0382: 
0383: 
0384: 
0385: 
0386: 
0387: 
0388: 
0389: 
0390: 
0391: 
03ge: 
0393: 
039h: 
0395: 
0396: 
0397: 
0398: 
0399: 
0400: 
O401: 
o402: 
O403: 
obou: 
oH05: 
o406: 
o407: 
0408: 
oH09: 
Ou 10: 
OR11: 
out12: 
ON 13: 
OuI4: 
ou15: 
ou16: 
O4 17: 
0418: 
ou19: 
ok20: 
ok21: 
ou22: 
ok23: 
oel: 
ok25: 
oh26: 
O427: 
ou28: 
ou29: 
0430: 
0431: 
o43e2: 
0433: 
oN3ä: 
0435: 
0436: 
0437: 
0438: 
O439: 
ou4O: 
OUT: 
ouu2: 
OUU3: 
ou: 
ouU5: 
ou46: 
OuU7: 
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1274 


1276 
1278 
127Â 
127B 
127D 
127F 
1281 
1283 


1284 
1286 
1289 
128C 
128E 


128F 
1290 
1291 
1292 
1295 
1294 
1297 
129A 


129B 
129D 
1240 
1243 


1244 
12A6 
T2A7 
1249 


124B 
12AD 


12AE 
12B1 
12B3 
12B6 
12B8 


12BB 


12BE 
1261 
12C3 
12C 
12C7 
12C8 
12CA 


12CD 
12CE 


48 
UA 
HA 
HA 
HA 
20 
20 
68 


29 
20 
20 
60 


C9 
18 
30 
69 


69 
60 


2C 
30 
8E 
A2 
20 


20 


2C 
10 
38 
6E 
CA 
DO 
HC 


18 
GE 


ob 


F8 
F9 
F9 
F8 


F8 
00 


46 
D6 


FF 


Al 
34 


OF 
AU 
34 


OA 


02 
07 


30 


80 
FB 
61 
08 
03 


12 


80 
OA 


62 
F1 
Dh 


62 


12 
1 


12 
13 


1A 
1A 
13 
13 


TA 


1Â 


TA 


HNUA 


HNUB 


LDXIM $04 SET NIBBLE COUNTER 
ASLZ INL 

ROLZ. INH 

DEX 

BNE HNUA 

ORAZ INL NIBBLE TO INPUT BUFFER 
STAZ INL 

LDYIM $00 SET Z FLAG 

RTS 

LDYIM $46 

JSR MESSY “WHAT?” 

JSR CRLF 

LDYIM $FF SET N FLAG 

RTS 


PRBYT >CONVERT AN BYTE STORED IN ACCU TO 


PRBYT 


PRNIBL 


NIBASC 
NIBASC 


NA 


RECCHA 


RECCHA 


RECA 


RECD 


RECB 


TWO ASCII CHARACTERS AND PRINT THEM 


PHA SAVE BYTE 

LSRA GET UPPER NIBBLE 
LSRA 

LSRA 

LSRÁ 


_JSR NIBASC NIBBLE TO ASCII CONVERSION 


JSR PRCHA PRINT UPPER NIBBLE 
PLA GET BYTE AGAIN 


ANDIM $OF GET LOWER NIBBLE 
JSR NIBASC 

JSR PRCHA PRINT LOWER NIBBLE 
RTS 


>CONVERT A HEX DATA NIBBLE TO AN ASCII CHARACTER 


CMPIM $0A NUMBER OR LETTER ? 
CLC 

BMI NA 

ADCIM $07 


ADCIM $30 
RTS 


>RECEIVE 1 ASCII CHARACTER FROM PRINTER 
>RETURN WITH ASCII CHARACTER IN ACCU 
>SAVE X REGISTER 


BIT PAD WAIT FOR START BIT 
BMI . RECCHA 

STX TEMPB SAVE INDEX X 

LDXIM $08 BIT COUNTER IS 8 
JSR DELHBT DELAY HALF BIT TIME 


JSR DELBIT DELAY ONE BIT TIME 


BET PAD ONE/ZERO CHECK 
BPL RECB BRANCH IF ZERO 


SEC BET -Tet 

ROR CHA ROTATE CARRY INTO CHARACTER 
DEX SET UP FOR NEXT BIT 

BNE RECA ALL BITS READ? 

JMP RECC 

CLC BIT IS ‘O° 

ROR CHA 


ou4u8: 
OU: 
O45O: 
O45 1: 
ok52: 
0453: 
ORS U: 
ok55: 
0456: 
0457: 
0458: 
ok5g: 
o460: 
o461: 
ou6e2: 
0463: 
ou6h: 
0465: 
0466: 
0467: 
0468: 
ob69: 
ob7O: 
O471: 
Ou72: 
o473: 
O7 4: 
0475: 
0476: 
OTT: 
Ou78: 
Ou79g: 
0480: 
Ou81: 
0482: 
04u83: 
ou84: 
0485: 
O486: 
o487: 
0488: 
o489: 
'O4GO: 
OG 1: 
okg2: 
0493: 
OU9 4: 
o495: 
0496: 
Oo497: 
o498: 
ogg: 
0500: 
0501: 
0502: 
0503: 
o50l: 
0505: 
0506: 
0507: 
0508: 
0509: 
0510: 
0511: 
0512: 
08513: 
0514: 
0515: 
0516: 


12D1 
teDe 


12D4 
12D7 
12DA 
12DC 
12DE 


12E0 
12E1 
12E4 
12E6 
12E9 
12EC 
12EE 
1281 
12F 4 
12F6 
12Fg 
12FC 
12FF 
1302 


1303 
1306 
1309 
130C 
130F 


1312 
1315 
1318 
13:1B 


131E 
131F 
1322 
1324 
1327 
132A 
132C 
132F 
1330 
1331 
1333 


1334 
1337 
133ÂA 
133D 
1335 
1352 
1345 


1347 
13 HA 
134C 


CA 
DO 


20 
AD 
29 
AE 
60 


18 
AD 
69 
8D 
AD 
69 
8D 
2C 
10 
AD 
8D 
AD 


60 


AD 
8D 
AD 
8D 
HC 


AD 
8D 
AD 
8D 


38 
AD 
E9 


AD 
E9 
8D 
EA 
EA 
BO 
60 


8E 
8D 
AD 
29 
8D 
20 
A2 


HE 
90 
AD 


E7 


12 
62 
LE 
61 


SA 
01 
DA 
5B 
00 
5B 
80 
EA 
5Á 
DE 
5B 
5E 


5C 
5E 
5D 
DE 
1E 


DA 
5E 
DB 
5F 


5E 
01 
DE 
DF 
00 
5E 


EB 


60 
62 
82 
FE 
82 
12 


07 


62 
30 
82 


1À 


1A 
TA 


1A 
TA 


TA 
TA 
TA 
jA 


TA 
1A 
1A 
1À 
13 


1À 
TA 
1À 
1A 


1À 


TA 
TA 


TA 


1À 
TA 
1A 


1A 
13 


RECC 


COMTIM 


COMTIM 


DELBIT 
DELHBT 


DELHBT 


DELBIT 


CNTDN 


DEX 
BNE 


JSR 
LDA 
ANDIM 
LDX 
RTS 


RECA 


DELBIT WAIT FOR STOP BIT TIME 
CHA 

$7F BIT 7 MUST BE ZERO 
TEMPB RESTORE INDEX X 


>COMPUTE BIT TIME 


CLC 
LDA 
ADCIM 
STA 
LDA 
ADCIM 
STA 
BIT 
BPL 
LDA 
STA 
LDA 
STA 
RTS 


CNTL 16 BIT ADD 

$01 

CNTL 

CNTH 

$00 

CNTH 

PAD START BIT FINISHED ? 
COMTIM 

CNTL SET UP FOR 

TIML HALF BIT TIME COMPUTATION 
CNTH 

TIMH 


>DELAY 1 BIT TIME 
>DELAY 1/2 BIT TIME 


LDA 
STA 
LDA 
STA 
JMP 


LDA 
STA 
LDA 
STA 


SEC 
LDA 
SBCIM 
STA 
LDA 
SBCIM 
STA 
NOP 
NOP 
BCS 
RTS 


CNTHL FETCH 1/2 BIT TIME 

TIML 

CNTHH 

TIMH 

CNTDN START WITH BIT COUNT DOWN 


CNTL FETCH 1 BIT TIME 
TIML 
CNTH 
TIMH 


TIML 16 BIT SUBTRACTION 
$01 COUNT DOWN 
TIML 


TIMH 


$00 
TIMH 


EQUALIZE 4 MICRO SEC 


CNTDN COUNT DOWN FINISHED ? 


PRCHA >TRANSMIT AN ASCII CHARACTER STORED IN 
ACCU TO PRINTER 
>SAVE INDEX X. 


PRCHA 


PRA 


STX 
STA 
LDA 
ANDIM 
STA 
JSR 
LDXIM 


LSR 
BCC 
LDA 


TEMPA SAVE INDEX X 

CHA 

PBD 

$FE TRNSMIT START BIT 

PBD 

DELBIT DELAY OF START BIT 

$07 SET UP FOR 7 DATA BITS 


CHA SHIFT OUT CHARACTER 


PRC BRANCH IF “O° 
PBD 
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ORT! 
0518: 
0519: 
0520: 
0521: 
0522: 
0523: 
o52: 
0525: 
0526: 
0527: 
0528: 
0529: 
0530: 
0531: 
0532: 
0533: 
0534: 
0535: 
0536: 
0537: 
0538: 
0539: 
0540: 
O5k1: 
os42: 
0543: 
Os: 
0545: 
0546: 
o547: 
0548: 
osh9: 
0550: 
0551: 
0552: 
0553: 
0554: 
0555: 
0556: 
0557: 
0558: 
0559: 
0560: 
0561: 
0562: 
0563: 
0564: 
0565: 
0566: 
0567: 
0568: 
0569: 
0570: 
0571: 
0572: 
0573: 
0574: 
0575: 
0576: 
0577: 
0578: 
0579: 
0580: 
0581: 
0582: 
0583: 
0584: 
0585: 
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134F 
1351 


1354 
1397 
1358 
1354 


135D 
1360 
1362 
1365 
1368 
1369 
136B 
136E 
1370 
1373 


1374 
1377 
1379 


137C 
137F 
1381 
1384 


1387 
138A 
138C 
138E 
1391 
1393 


1395 
1397 
139A 
139C 
139F 


1342 
1345 
1347 
1349 
13AC 
13AE 


13B0 
13B2 
1455 
13B7 
13BA 


13BC 


13BD 
13BE 
13BF 
13C0 
13C1 
13C2 
13C3 
13C4 


20 


FO 
20 


30 
FO 


A5 
8D 
A5 


20 
20 


FO 
20 
30 
FO 


A5 
8D 
A5 


AO 
60 


HA 
52 
UE 
19 
IF 
5e 
03 
45 


01 
82 


12 


ED 
59 


82 
01 
82 
12 


Fe 
80 
Ou 
60 


80 
FB 
7C 


82 
FE 


82 
54 


AE 
2C 
07 
6F 
29 
F2 


F8 
63 
F9 


68 


AE 
OD 
07 
6F 
OE 
F2 


F9 
66 
F8 
65 
00 


1A 
13 


TÀ 
TA 
1À 
13 
TA 
TA 


1A 
1A 


1A 


12 


12 


1A 


1A 
12 


12 


12 


1À 


1A 


PRB 


PRD 


BRKTST 


PRC 


ORAIM 
STA 


JSR 
DEX 
BNE 
LDX 


LDA 
ORAIM 
STA 
JSR 
DEX 
BNE 
BIT 
BPL 
LDX 
RTS 


BIT 
BPL 
JMI 


LDA 
ANDIM 


STA 
JMP 


$01 
PBD 
DELBIT 


PRA 
STPBIT 


PBD 
$01 
PBD 
DELBIT 


PRD 
PAD 
BRKTST 
TEMPA 


PAD 
BRKTST 
BRKT 


PBD 
$FE 
PBD 
PRB 


OUTPUT A LOG “17 


DELAY 1 BIT TIME 

SET UP FOR NEXT BIT 

ALL BITS TRANSMITTED ? 

X := AMOUNT OF STOP BITS + 1 


FIRST NONE PARITY 
AND THEN 1 STOP BIT 


TEST FOR BREAK 


RESTORE INDEX X 


KEY RELEASED ? 


JUMP TO AN USER SELECTABLE VECTOR 


OUTPUT A LOG ‘O° 


INPAR >PARAMETER INPUT OF MATRIX 


INPAR 


IPA 


IPB 


IPC 


IPD 


STRING 


MESS 


JSR 
CMPIM 
BEQ 
JSR 
BMI 
BEQ 


LDAZ 
STA 
LDAZ 
STA 
JSR 


JSR 
CMPIM 
BEQ 
JSR 
BMI 
BEQ 


LDAZ 
STA 
LDAZ 
STA 
LDYIM 


RTS 


LOOKUP 


ut Mt 


RECCHA 


IPA 
HEXNUM 


IPD 
INPAR 


INL 
PARAL 
INH 
PARAH 
RESIN 


WAIT FOR A CHARACTER 
IS IT A COLON ? 


FILLUP INPUT BUFFER 
RETURN, IF NOT VALID 
ELSE CONTINUE 


INPUT TO PARAMETER BUFFER 


RECCHA WAIT FOR A CHARACTER 


$OD 
IPC 
HEXNUM 
IPD 
IPB 


INH 
PARBH 
INL 
PARBL 
$00 


TABLE 


‘ * ‘ \ à ‘ 


er 
BO TDOH ET 


ee 
Ui 


WAS IT A CARRIAGE RETURN ? 


VALID CHARACTER ? 


INPUT TO PARAMETER BUFFER 


00 


0586: 
0587: 
0588: 
0589: 
0590: 
0591: 
0592: 
0593: 
osgl: 
0595: 
0596: 
OST: 
0598: 
0599: 
0600: 
0601: 
0602: 
0603: 
0604: 
0605: 
0606: 
0607: 
0608: 
0609: 
0610: 
0611: 
0612: 
0613: 
0614: 
0615: 
0616: 
0617: 
0618: 
0619: 
0620: 
0621: 
0622: 
0623: 
0624: 
0625: 
0626: 
0627: 
0628: 
0629: 
0630: 
0631: 
0632: 
0633: 
0634: 
0635: 
0636: 
0637: 
0638: 
0639: 
0640: 
061: 
0642: 
0643: 
064: 
0645: 
0646: 
0647: 
0648: 
o6uG: 
0650: 
0651: 
0652: 
2653: 
0651: 


13C5 
13C6 
13C7 
13C8 
13C9 
13CA 
13CB 
13CC 
13CD 
13CE 
13CF 
13D0 
13D1 
13D2 
13D 3 
13D4 
13D5 
13D6 
13D7 
13D8 
13D9 
13DA 
13DB 
13DC 
13DD 
13DE 
13DF 
13E0 
13E1 
13E2 
13E3 
13EU 
13E5 
13E6 
13E7 
13E8 
13E9 
13EA 
13EB 
13EC 
13ED 
13EE 
13EF 
13F0 
13F 1 
13F2 
13F3 
13F 4 
13F5 
13F6 
13F7 
13F8 
13F9 
13FA 
13FB 
13FC 
13FD 
13FE 
13FF 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 


HH IE It U HO IE tE IE IE IE EE EB 0E HE IE Ee EO IM HO IE ME ER Ie 


6 Ov Ox 
Lo 


N 


N 


° 


16 « xr 
oor sMmWNPrOoOmO HT 


LJ 


x \ 


hl x 


\ N 


* 


AH ss 1 « Nx  « 
HOON erPTEEONDNH HE <5 
LJ 


u) 


H 


OE 


14 


17 


1A 


20 


26 


2C 


32 


38 


46 


WC 
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0655: 
0656: 
0657: 
0658: 
0659: 
0660: 
0661: 
0662: 
0663: 
0664: 
0665: 
0666: 
0667: 
0668: 
0669: 
0670: 
0671: 
0672: 
0673: 
0674: 
0675: 
0676: 
0677: 
0678: 
0679: 
0680: 
0681: 
0682: 
0683: 
0684: 
0685: 
0686: 
0687: 
0688: 
0689: 
0690: 
0691: 
0692: 
0693: 
0694: 
0695: 
0696: 
0697: 
0698: 
0699: 
0700: 
0701: 
0702: 
0703: 
07ok: 
0705: 
0706: 
0707: 
0708: 
0709: 
0710: 
0711: 
0712: 
0713: 
0714: 
0719? 
0716: 
0717: 
0718: 
0719: 
0720: 
0721: 
0722: 
0723: 
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140A 
140B 
140C 
140D 
140E 
140F 
1410 
1411 
1412 
1413 
141 
1415 
1416 
1417 
1418 
1419 
1414 
141B 
14 1C 
14 1D 


181E 
1420 
1422 
1424 
1426 
1428 
152A 
142c 


142E 
1430 


1431 
1433 
1535 
1436 


1438 
1434 


143B 
143E 
1440 
1442 
1445 
1447 


1449 
144B 
UBE 
1450 
1452 
1454 
1456 
1459 
145C 
145E 
146 1 
1464 


C9 
30 
C9 
30 
Cg 
30 
C9 
30 


AO 
60 


Cg 
30 


69 


z 
60 


20 
C9 
FO 
20 
30 
FO 


A5 
8D 


FO 
Cg 
FO 
20 
20 
30 


8D 
AD 


30 
OC 
3ÀÂ 
0B 
u 
O4 
47 
03 


EE 


40 
03 


09 


OF 


AE 
2C 
07 
6F 
3F 
F2 


F8 
19 
00 
39 
PE 
3! 
68 
87 
28 
63 
10 
64 


12 


12 


1A 


12 
13 


1A 
1À 
1A 


ASHETT 


OH Ot NH 


sr rf A rr 
0 ECUMRIITO KRS Pm 


a‘ a * x ‘ 


N 


Lb 


Nr 6 
… UO 


$03 


ASCHEX 


CONVERT AN ASCII CHARACTER TO A HEX DATA NIBBLE. 


1) RETURN WITH CONVERTED HEX NUMBER IN ACCU 
NOT VALID HEX NUMBER 


VALID HEX NUMBER 


2) N 
3) Z 


ASHETT 


NOTVAT 


VALIT 


VALT 


SAID 


SIC 


1, IF 
Vi TE 


CMP IM 
BMI 
CMPIM 
BMI 
CMPIM 
BMI 
CMPIM 
BMI 


LDYIM 
RTS 


CMPIM 
BMI 
CLC 
ADC IM 


ANDIM 
RTS 


JSR 
CMPIM 
BEQ 
JSR 
BMI 
BEQ 


LDAZ 
STA 
CMP IM 
BEQ 
CMPIM 
BEQ 


JSR 


JSR 
BMI 
LDA 
STA 
LDA 


$30 
NOTVAT 


$3A 
VALIT 
$u1 
NOTVAT 
$U7 
VALIT 


$FF 
$u0 
VALT 
$09 
$OF 


IGNORE 00...2F 


IGNORE 3A...40 
IGNORE U7...7F 


SET N-FLAG 
ERROR EXIT 


ASCII HEX CONVERSION 


RECCHA WAIT FOR A CHARACTER 


, 
SIC 
HEXNUM 
SIB 
SAID 


INL 
ID 
$00 
SIA 
SFF 
SIA 
RESIN 
INPAR 
SIB 
PARAL 
SAL 
PARAH 


IT WAS A DELIMITER 
READ PARAMETER = ID 


SAVE ID 


ID = 00 & FF ARE NOT VALID 


RESET INPUT BUFFER 
READ SA AND EA 

NOT VALID CHARACTER 
SAVE ALL PARAMETERS 


072: 
0725 
0726: 
0727: 
0728: 
0729: 
0730: 
0731: 
0732: 
0733: 
0734: 
0735: 
0736: 
0737: 
0738: 
0739: 
070: 
0741: 
0742: 
0743: 
O7uu: 
0745: 
076: 
0747: 
0718: 
0749: 
0750: 
0751: 
O7TSes 
0753: 
0754: 
0755: 
0750: 
OTT: 
0758: 
0759: 
0760: 
0761: 
0762: 
0763: 
0764: 
0765: 
0766: 
0767: 
0768: 
0769: 
0770: 
0771: 
0772: 
OLS 
0775: 
0775: 
0776: 
0777: 
0778: 
0779: 
0780: 
0781: 
0782: 
0783: 
0784: 
0785: 
0786: 
0787: 
0788: 
0789: 
0790: 
0791: 
0792: 


1467 
146A 
146D 
1470 
1473 
1476 
1479 
147C 
147E 
1481 
1484 


1486 


1487 
1489 


148A 
148D 
148F 
1492 
1494 


1496 
1499 
149C 
1UGE 
1HA1 
15AU 


14A6 


THAT 
T4A9G 
1LAC 
1UAF 
14B1 
14B4 
14B6 
13B9 


14BC 
18BE 
14C1 
14C3 
1406 
14C8 
14CB 
14CE 


14CF 
TUD 1 
14D2 
14D 4 
14D5 
14D7 


8D 
AD 
8D 
AD 


20 
20 
AO 
20 
20 
AO 


60 


AO 
60 


20 
30 
8D 
Cg 
FO 


20 
20 
AO 
20 
20 
AO 


60 


AO 
20 
20 
30 


A5 
8D 
BC 


Ag 
8D 
A9 
8D 
A9 
8D 
8D 
60 


71 
65 
1e 
66 


3 
DF 


BC 
UC 
D6 
E8 
00 


FF 


A2 


79 
FF 
11 


0e 


UC 
D6 
E8 
00 


5C 
D6 
EB 
F5 
70 
F9 
71 
96 


67 
82 
00 
80 
TE 
81 
83 


F3 
B 
EF 


1A 


1À 
1À 
1À 
1A 
09 
14 


11 
11 


13 
1À 


OB 
14 


11 
11 


TA 


TA 
TA 


STA 
LDA 
STA 
LDA 
STA 
JSR 
JSR 
LDYIM 
JSR 
JSR 
LDYIM 


SIB RTS 


SIA LDYIM 
RTS 


GETID JSR 
BMI 
STA 
CMPIM 
BEQ 


GB JSR 
JSR 
LDYIM 
JSR 
JSR 
LDYIM 


GA RTS 


IDPAR LDYIM 
JSR 
JSR 
BMI 
STA 
LDAZ 
STA 
JMP 


RESTTY LDAIM 
STA 
LDAIM 
STA 
LDAIM 
STA 
STA 


SAH 
PARBL 
EAL 
PARBH 
EAH 
DUMP 
RESTTY 
$UC 
MESSY 
CRLF 
$00 


SFF 


IPB 
GA 

ID 
SFF 
IDPAR 


RDTAPE 
RESTTY 
SHC 
MESSY 
CRLF 
$00 


$5C 
MESSY 
IPBRES 
GA 

SAL 
INH 
SAH 

GB 


$67 
PBD 
$00 
PAD 
$7F 
PADD 
PBDD 


STORE DATA ON TAPE 
I/O RESET 
“READY ° 


NORMAL EXIT 


ERROR EXIT 


READ ID 
NOT VALID PARAMETER 
SAVE ID 


SPECIAL ID ? 


READ DATA FROM TAPE 
1/0 RESET 
'READY ° 


NORMAL EXIT 


"SA: 


READ A SPECIAL ID 
NOT VALID PARAMETER 
SAVE START ADDRESS 


MUUNNNRNNRRHNENKHNNHEN HNHK HHA HANKA MAH MMA H MH HAM KKK KH 


“KE STEP BY STEP PROGRAM OF THE PRINTER MONITOR ##& 
HUNUNKNENENNRUKNENKNNNKNEN RNN KEN NN NANA K KENNEN NEK 


> THE NMI VECTOR FOR STEP BY STEP IS SET AUTOMATICALLY 
> STEP SWITCH: ON POSITION 

> Ki AND K5 DISABLE THE SYNC SIGNAL OF THE PROCESSOR 

> A HARDWARE MODIFICATION IS REQIRED (SEE BOOK 3) 


STEP STAZ 
PLA 
STAZ 
PLA 
STAZ 
STAZ 


ACC 


PREG 


PCL 
POINTL 


SAVE ACCU 
GET PREG 


GET PCL 


PC OF THE NEXT INSTRUCTION 
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0793: 
0794: 
0795: 
0796: 
0797: 
0798: 
0799: 
0800: 
0801: 
0802: 
0803: 
0804: 
0805: 
0806: 
0807: 
0808: 
0809: 
0810: 
0811: 
0812: 
0813: 
0814: 
0815: 


IDs 


218 


14D9 
18DA 
18DC 
14DE 
14EO 
18E2 
14E3 
14E5 
14E8 


14EB 
14ED 
1BEF 
TUF 1 


68 
85 
85 


86 
BA 
86 
20 
UC 


A9 


85 
4C 


FO 
FB 
F4 
F5 


F2 
F8 11 
6A 10 


00 
F8 
F9 
A2 13 


PLA 
STAZ 
STAZ 
STYZ 
STXZ 
TSX 
STXZ 
JSR 
JMP 


PCH 
POINTH 
YREG 
XREG 


SPUSER 
PRBUFS 
RESALL 


ERR SPECIAL ID #4% 


IPBRES LDAIM 
STAZ 
STAZ 


JMP 


$00 
INL 
INH 


IPB 


GET PCH 


GET OLD STACK POINTER 
AND SAVE IT 
OPEN NEXT CELL 


BACK TO MONITOR 


RESET INPUT BUFFER 


CONTINUE 


BANK HNK NHK HH NH HKM HHK KK KR 


ER END OF THE PROGRAM ### 
HURKUUNRNNNNENK NEEN KEEK HKH 


SYMBOL 
ACC 
ASSEM 
BITS 
BYTE 
CHARVU 
CHKID 
CNTA 
CNTHH 
COMPNT 
DATATR 
DELHBT 
DUMPT 
ENDADH 
FIRST 
GB 
GETID 
HEXDAT 
HIG 
IDPAR 
INL 
IPBRES 
JUNIOR 
LIST 
MATD 
MATJ 
ME 
MINUS 
NIB 
ONE 
PADD 
PARBH 
PG 

PLU 
PRA 
PRCHA 
PRNIBL 
RBB 
RDBIT 
RDSA 
READCH 
RECCHA 
RESIN 
SAH 
SAVID 
SEAL 
SHIFT 
SIC 
SPRB 
STAR 
STEAH 
STEP 
STSAL 
SYNCNT 
TDISP 
TEMPX 
TLOOK 
TPVEC 
VALNUM 
vu 
ZERO 


TABLE 3000 3594 


OOF 

125 

1A75 
1A6A 
OC5D 
OB9E 
1AF U 
1A5D 
og ug 
OAUO 
1303 
O9F 3 
00ES 
1A76 
1496 
148A 
OA6GA 
OACB 
14A7 
00F8 
1: 
1246 
10C9 
113F 
AT 
11D9 
1080 
OAAT 
OAA8 
1481 
1A66 
111F 
1073 
1347 
1334 
129B 
OBFB 
OBC2 
OB60 
1070 
12AE 
1268 
1471 
11BF 
097A 
08A3 
1449 
123D 
oBh5 
08D4 
18CF 
08C8 
147 U 
09 1B 
OOFD 
O9BB 
0918 
11CB 
0C6 4 
OAB8 


ADJPNT 
BEGADH 
BRKT 
CENDH 
CHA 
CHKL 
CNTC 
CNTHL 
COMTIM 
DAT 
DELY 
EAH 
ENDADL 
FMA 
GETA 
GETKEY 
HEXNUM 
HNUA 
INCPNT 
INPAR 
IPB 
JUN 

LO 
MATF 
MATK 
MESEND 
NA 

NMI 
OUTBT 
PAD 
PARBL 
PCH 
PNT 
PRBUFS 
PRC 
PRSP 
RDBA 
RDBYT 
RDTAPE 
RECA 
RECD 
RESPAR 
SAID 
SBEGH 
SECOND 
SHOWPR 
SID 
SPUSER 
STARA 
STEAL 
STPBIT 
SY 
SYNCS 
TEMP 
TENSYN 
TPINIT 
TTXT 
VALT 
WARMST 
ZRO 


0C72 
OOE3 
1A7C 
OOE9 
1462 
1A6E 
1AF6 
1A5C 
12E0 
089C 
0927 
1A73 
OOE4 
OB84 
0800 
1DF9 
126F 
1276 
1213 
1387 
1342 
1248 
OAES8 
1142 
118B 
11E7 
12AB 
1A7A 
OA8B 
1480 
1465 
OOFO 
109F 
11F8 
137C 
11F3 
OBD1 
OBF 3 
OBO2 
12BB 
12BE 
1259 
143B 
0989 
1A77 
1228 
093B 
OOF2 
0B55 
0O8EO 
1459 
1A69 
OAIF 
OOFC 
OB 36 
0810 
0833 
1438 
1CCA 
OAC 1 


ASCHEX 
BEGADL 


BRKTST 
CENDL 
CHECK 
CHKSUM 
CNTDN 
CNTL 
CONTIN 
DECPNT 
DISCNT 
EAL 
FILES 
GA 
GETB 
GETTAP 
HIGH 
HNUB 
INH 

IP 

IPC 
LABJUN 
LOWER 
MATG 
MATL 
MESS 
NIBASC 
NOTVAL 
OUTBTC 
PARAH 
PBDD 
PCL 
POINTH 
PRBYT 
PRD 
PRTEMP 
RDBB 
RDCH 
RDTDIS 
RECB 
RESALL 
RESTTY 
SAL 
SBEGL 
SENDH 
SIA 
SPACE 
SSAH 
STBEGH 
STENDH 
STRTBT 
SYNC 
SYNVEC 
TEMPA 
TIMH 
TPI 
VALID 
VAL 
XREG 


OC 19 
OOE2 
1374 
OOE8 
OB8A 
OC4B 
131E 
1A5A 
111C 
1214 
1468 
1A72 
0873 
18A6 
O8LE 
11B0 
OAC8 
1284 
OOF9 
1219 
13B0 
105F 
1A6D 
1156 
119E 
13BD 
12AU4 
029 
OAT7A 
1A6U4 
1483 
OOEF 
OOFB 
128F 
135D 
1A67 
OBD4 
0C36 
1AD4 
12CD 
106A 
15BC 
1470 
0997 
0945 
1487 
108D 
O9 LD 
OBEC 
0902 
1039 
OB1C 
OB9B 
1A60 
1A5F 
0821 
oc2C 
0C33 
OOF5 


ASHETT 
BEGIN 
BTWEEN 
CHAR 
CHKH 
CLEND 
CNTH 
COLDST 
CRLF 
DELBIT 
DUMP 
EDITOR 
FILMEM 
GANG 
GETERR 
GET 
HIGHER 
ID 
INITPR 
IPA 
IPD 
LDAINH 
LOW 
MATH 
MATRIX 
MESSY 
NIBOUT 
NOTVAT 
OUTCH 
PARAL 
PBD 
PLUS 
POINTL 
PRB 
PREG 
RBA 
RDBC 
RDFLAG 
READ 
RECC 
RESET 
RUN 
SAVE 
SEAH 
SENDL 
SIB 
SPRA 
SSAL 
STBEGL 
STENDL 
STSAH 
SYNCA 
TAPDIS 
TEMPB 
TIML 
TPTXT 
VALIT 
VNA 
YREG 


141E 
1ED3 
OBE8 
1A6B 
1A6F 
11EF 
1A5B 
1CB5 
11E8 
1312 
O9DF 
124F 
0B70 
1478 
11BC 
0840 
1A6C 
1A79 
1000 
1395 
13BC 
1DA7 
OAES 
115E 
1131 
11D6 
OA9A 
142E 
OAA3 
1463 
1482 
085E 
OOFA 
1354 
OOF 1 
OBFA 
OBE 
1AD5 


0C38 


12D4 
1C 1D 
10B2 
0852 
096B 
09B3 
1486 
122r 
095C 
O8F7 
O90D 
08BC 
OB21 
0936 
1A6 1 
1A5E 
082E 
1431 
11D3 
OOF 4 
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Aanhangsel 4 


EPROM-uitbreiding van de standaard-monitor 
en 
EPROM-uitbreiding van PM 


Op minstens twee plaatsen in boek 3 hebben we het gehad over de omweg 
die moet worden afgelegd om de standaardmonitor of PM te bereiken 
tijdens of na afloop van een gebruikersprogramma waarin decimaal wordt 
gerekend. Zie Aanhangsel 2 van boek 3 en hoofdstuk 12, pagina’s 
167... 169, Die omweg bestond uit een stukje programma ín PIA-RAM. 
Welnu: die omweg is nog steeds nodig in de besproken gevallen, maar de 
bijbehorende instrukties hoeft men nu niet telkens zelf in PIA-RAM te 
zetten, maar zijn permanent aanwezig in de PM/PME-EPROM (ESS 507N). 
Voor de details wordt verwezen naar de bijgaande figuren 1a en 1b. Omdat 
er nu geen gebruik meer wordt gemaakt van PIA-RAM kan de derde 
aansluiting K6 op de imperial-print vervallen (zie figuur 17 van hoofdstuk 
12). De instrukties van BINAR en PMBINA bevinden zich nu in de 
PM/PME-EPROM; de aansluiting K4 op de imperialprint zorgt ervoor dat 
deze instrukties ononderbroken worden uitgevoerd. En we zeggen het hier 
nòg maar eens: het signaal K7 moet altijd op de imperial-print zijn aan- 
gesloten. 


* Ja * Tb 








JMP-SAVE 


JMP-STEP 





SAVE 
$ 1CB9 
(standaard-monitor) 


Ì NMI (STEP) 
1A7B __ 1A7A 
_ IRQ (BRK) En: 
81916 1a 1A2F 1A7 
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STEP 
$ 14CF 
(PM) 


NMI (STEP) __ D 
1A7B TA7A 
1A7E 81916 tb 


1A7F 


